;;;; Generated on 10/20/2021 at 09:40:05 (UTC+10).

(COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0)
                      COMMON-LISP:SAFETY COMMON-LISP:DEBUG
                      COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM (COMMON-LISP:INLINE %%CUNMQL %CUNMQL %%DLABAD
                      %DLABAD %%CGGBAK %CGGBAK %%DLAGS2 %DLAGS2
                      %%SGEQR2 %SGEQR2 %%SOPGTR %SOPGTR %%CGERFSX
                      %CGERFSX %%ZGSVJ1 %ZGSVJ1 %%ZTPLQT2 %ZTPLQT2
                      %%DPTTS2 %DPTTS2 %%DTFTRI %DTFTRI %%CGEQRF
                      %CGEQRF %%CSPTRS %CSPTRS %%CGEES %CGEES %%CGEMLQ
                      %CGEMLQ %%DGEEVX %DGEEVX %%DZSUM1 %DZSUM1
                      %%DSYTRS_3 %DSYTRS_3 %%CLANSY %CLANSY %%SLANSP
                      %SLANSP %%DLAEXC %DLAEXC %%CUNGR2 %CUNGR2
                      %%SSYSVX %SSYSVX %%CTRTTF %CTRTTF %%CSYTRI_ROOK
                      %CSYTRI_ROOK %%CTZRZF %CTZRZF %%SSYSV_ROOK
                      %SSYSV_ROOK %%DSYSWAPR %DSYSWAPR %%DORMBR %DORMBR
                      %%DGEQR2P %DGEQR2P %%SLAGTM %SLAGTM
                      %%ZLA_GERCOND_X %ZLA_GERCOND_X %%CPOSVXX %CPOSVXX
                      %%ZCPOSV %ZCPOSV %%CLA_GBRCOND_C %CLA_GBRCOND_C
                      %%CTBTRS %CTBTRS %%DDISNA %DDISNA %%ZHPGVD
                      %ZHPGVD %%DORG2R %DORG2R %%DHSEIN %DHSEIN
                      %%DTRTTF %DTRTTF %%STGEVC %STGEVC %%CGELSY
                      %CGELSY %%ZLAQR4 %ZLAQR4 %%SLAMSWLQ %SLAMSWLQ
                      %%ZLA_PORPVGRW %ZLA_PORPVGRW %%CPBEQU %CPBEQU
                      %%DGSVJ1 %DGSVJ1 %%DGESVJ %DGESVJ %%DTRSNA
                      %DTRSNA %%ZLAUU2 %ZLAUU2 %%SGGSVD3 %SGGSVD3
                      %%SSBGV %SSBGV %%DGEMQRT %DGEMQRT %%DLANGE
                      %DLANGE %%ZLA_HERCOND_C %ZLA_HERCOND_C %%SGGQRF
                      %SGGQRF %%SLAS2 %SLAS2 %%DSYEVD_2STAGE
                      %DSYEVD_2STAGE %%CHPEVX %CHPEVX %%SLAUU2 %SLAUU2
                      %%ZTGEVC %ZTGEVC %%CSYSV_RK %CSYSV_RK %%CPBCON
                      %CPBCON %%DTFSM %DTFSM %%ZGTTS2 %ZGTTS2 %%ZLAQR1
                      %ZLAQR1 %%SGEQP3 %SGEQP3 %%DSYTRI_3 %DSYTRI_3
                      %%SLAED0 %SLAED0 %%ZHBEVX_2STAGE %ZHBEVX_2STAGE
                      %%DGETRS %DGETRS %%DGELS %DGELS %%DTBRFS %DTBRFS
                      %%CSTEGR %CSTEGR %%ZHETRS_AA %ZHETRS_AA %%SGGES
                      %SGGES %%SORMBR %SORMBR %%SLA_GERCOND
                      %SLA_GERCOND %%DLAQR1 %DLAQR1 %%DLALN2 %DLALN2
                      %%SLASDT %SLASDT %%DLASQ6 %DLASQ6 %%DLARRD
                      %DLARRD %%DTREVC3 %DTREVC3 %%ZLAED7 %ZLAED7
                      %%DGTSVX %DGTSVX %%ZLA_GERPVGRW %ZLA_GERPVGRW
                      %%DORBDB4 %DORBDB4 %%ZPOCON %ZPOCON %%CGETSLS
                      %CGETSLS %%STRSYL %STRSYL %%SPORFS %SPORFS
                      %%SSTEIN %SSTEIN %%CTPTTR %CTPTTR %%DLACPY
                      %DLACPY %%ZLATDF %ZLATDF %%SGGRQF %SGGRQF
                      %%ZPTEQR %ZPTEQR %%CGSVJ0 %CGSVJ0 %%ZHETRF
                      %ZHETRF %%CPORFSX %CPORFSX %%DSPOSV %DSPOSV
                      %%CGEQR2 %CGEQR2 %%DLASR %DLASR %%CGETRI %CGETRI
                      %%DORGTR %DORGTR %%CGGES3 %CGGES3 %%DSPTRI
                      %DSPTRI %%SSBGST %SSBGST %%ZPTTS2 %ZPTTS2
                      %%SORBDB %SORBDB %%CGEBAL %CGEBAL %%ZSYSV %ZSYSV
                      %%DGEHD2 %DGEHD2 %%SORMHR %SORMHR %%ZUNBDB
                      %ZUNBDB %%ZTPMQRT %ZTPMQRT %%ZLANHB %ZLANHB
                      %%SHGEQZ %SHGEQZ %%SLA_PORCOND %SLA_PORCOND
                      %%SGEBRD %SGEBRD %%SSYTRD %SSYTRD %%DLAGTF
                      %DLAGTF %%CPFTRF %CPFTRF %%STPRFB %STPRFB %%SLARF
                      %SLARF %%SPOTRS %SPOTRS %%DLAED0 %DLAED0
                      %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED
                      %%ZTPCON %ZTPCON %%ZLAQR2 %ZLAQR2 %%CUNGHR
                      %CUNGHR %%CPPRFS %CPPRFS %%CHESV_ROOK %CHESV_ROOK
                      %%CLANTB %CLANTB %%SSYSWAPR %SSYSWAPR
                      %%CLA_SYRCOND_C %CLA_SYRCOND_C %%ZGTRFS %ZGTRFS
                      %%CGESVJ %CGESVJ %%CUNMR2 %CUNMR2 %%DGEMQR
                      %DGEMQR %%DLAE2 %DLAE2 %%SLAGV2 %SLAGV2 %%ZGEEVX
                      %ZGEEVX %%ZGESVDQ %ZGESVDQ %%CLACON %CLACON
                      %%SLARNV %SLARNV %%DSTEVR %DSTEVR %%DOPMTR
                      %DOPMTR %%CPFTRS %CPFTRS %%DORMTR %DORMTR
                      %%DLAED3 %DLAED3 %%DLATRZ %DLATRZ %%CGEHD2
                      %CGEHD2 %%DLAMSWLQ %DLAMSWLQ %%CGGEV3 %CGGEV3
                      %%ZGGBAK %ZGGBAK %%CHETRF_AA_2STAGE
                      %CHETRF_AA_2STAGE %%SSYTRI_ROOK %SSYTRI_ROOK
                      %%DGEQR %DGEQR %%ZSYR %ZSYR %%SGEQRFP %SGEQRFP
                      %%SLARRE %SLARRE %%CTFSM %CTFSM %%ZPOTRI %ZPOTRI
                      %%ZHPEV %ZHPEV %%SLAQR3 %SLAQR3 %%DSYTRS2
                      %DSYTRS2 %%CHEEV %CHEEV %%CLA_HERCOND_X
                      %CLA_HERCOND_X %%ZPORFSX %ZPORFSX %%STZRZF
                      %STZRZF %%DGELSS %DGELSS %%SSYRFS %SSYRFS %%DGESV
                      %DGESV %%DSYSVXX %DSYSVXX %%CUNBDB4 %CUNBDB4
                      %%ZTFSM %ZTFSM %%SGETSLS %SGETSLS %%ZUPGTR
                      %ZUPGTR %%CLAEIN %CLAEIN %%ZGEQRT2 %ZGEQRT2
                      %%DTPQRT %DTPQRT %%CGTSV %CGTSV %%SGELSS %SGELSS
                      %%DSTEQR %DSTEQR %%SGETRI %SGETRI %%CUNGL2
                      %CUNGL2 %%ZSYTRF_ROOK %ZSYTRF_ROOK %%DLARZ %DLARZ
                      %%DSYEVR %DSYEVR %%DGBRFSX %DGBRFSX %%ZLASYF_AA
                      %ZLASYF_AA %%ZGEEV %ZGEEV %%DPFTRI %DPFTRI
                      %%IZMAX1 %IZMAX1 %%CSYSV_ROOK %CSYSV_ROOK
                      %%SPFTRF %SPFTRF %%SLANSB %SLANSB %%SPPTRS
                      %SPPTRS %%ZLAHR2 %ZLAHR2 %%ZGEBAL %ZGEBAL
                      %%ZLATPS %ZLATPS %%SGEMQR %SGEMQR %%DORM22
                      %DORM22 %%CHLA_TRANSTYPE %CHLA_TRANSTYPE %%CSPSVX
                      %CSPSVX %%CSYSVX %CSYSVX %%DBDSVDX %DBDSVDX
                      %%ZLASYF %ZLASYF %%SLAQTR %SLAQTR %%ZPOSVXX
                      %ZPOSVXX %%DSBGVX %DSBGVX %%SSTEDC %SSTEDC
                      %%DTPTTR %DTPTTR %%DLA_PORPVGRW %DLA_PORPVGRW
                      %%DBBCSD %DBBCSD %%ZUNG2R %ZUNG2R %%ZLARFY
                      %ZLARFY %%SLARZB %SLARZB %%ZTRSEN %ZTRSEN
                      %%SSYEVR %SSYEVR %%DORBDB2 %DORBDB2 %%ZLARNV
                      %ZLARNV %%SSYTD2 %SSYTD2 %%DLARTV %DLARTV
                      %%CLA_WWADDW %CLA_WWADDW %%DLAORHR_COL_GETRFNP2
                      %DLAORHR_COL_GETRFNP2 %%DLARRE %DLARRE %%DLARF
                      %DLARF %%ZHECON %ZHECON %%CLA_HERCOND_C
                      %CLA_HERCOND_C %%CLA_GBAMV %CLA_GBAMV %%DPBSTF
                      %DPBSTF %%ZLACON %ZLACON %%CLAMSWLQ %CLAMSWLQ
                      %%SSPTRF %SSPTRF %%SORMTR %SORMTR %%ZHEGV_2STAGE
                      %ZHEGV_2STAGE %%SSBEVX %SSBEVX %%XERBLA_ARRAY
                      %XERBLA_ARRAY %%DSTEMR %DSTEMR %%CHESV_RK
                      %CHESV_RK %%DORM2L %DORM2L %%ZSYTRF_AA_2STAGE
                      %ZSYTRF_AA_2STAGE))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMQL "cunmql_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMQL
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMQL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21603 ':INT32) (N-REF21604 ':INT32)
                              (K-REF21605 ':INT32)
                              (LDA-REF21607 ':INT32)
                              (LDC-REF21610 ':INT32)
                              (LWORK-REF21612 ':INT32)
                              (INFO-REF21613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21603 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21605 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21607 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21610 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21612 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21613 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21606 A)
                                            (TAU-REF21608 TAU)
                                            (C-REF21609 C)
                                            (WORK-REF21611 WORK))
      (%%CUNMQL SIDE TRANS M-REF21603 N-REF21604 K-REF21605 A-REF21606
       LDA-REF21607 TAU-REF21608 C-REF21609 LDC-REF21610 WORK-REF21611
       LWORK-REF21612 INFO-REF21613))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLABAD "dlabad_")
  ((SMALL :FOREIGN-ADDRESS) (LARGE :FOREIGN-ADDRESS)) :RETURNING :VOID
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLABAD (SMALL LARGE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABAD)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMALL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LARGE))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF21614 ':DOUBLE)
                              (LARGE-REF21615 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF21614 :DOUBLE) SMALL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF21615 :DOUBLE) LARGE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLABAD SMALL-REF21614 LARGE-REF21615))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGBAK "cggbak_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGBAK
    (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGBAK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21618 ':INT32)
                              (ILO-REF21619 ':INT32)
                              (IHI-REF21620 ':INT32)
                              (M-REF21623 ':INT32)
                              (LDV-REF21625 ':INT32)
                              (INFO-REF21626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF21619 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF21620 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21623 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21625 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21626 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF21621 LSCALE)
                                            (RSCALE-REF21622 RSCALE)
                                            (V-REF21624 V))
      (%%CGGBAK JOB SIDE N-REF21618 ILO-REF21619 IHI-REF21620
       LSCALE-REF21621 RSCALE-REF21622 M-REF21623 V-REF21624
       LDV-REF21625 INFO-REF21626))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAGS2 "dlags2_")
  ((UPPER :FOREIGN-ADDRESS) (A1 :FOREIGN-ADDRESS) (A2 :FOREIGN-ADDRESS)
   (A3 :FOREIGN-ADDRESS) (B1 :FOREIGN-ADDRESS) (B2 :FOREIGN-ADDRESS)
   (B3 :FOREIGN-ADDRESS) (CSU :FOREIGN-ADDRESS) (SNU :FOREIGN-ADDRESS)
   (CSV :FOREIGN-ADDRESS) (SNV :FOREIGN-ADDRESS) (CSQ :FOREIGN-ADDRESS)
   (SNQ :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAGS2
    (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A3)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B3)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF21627 ':INT32)
                              (A1-REF21628 ':DOUBLE)
                              (A2-REF21629 ':DOUBLE)
                              (A3-REF21630 ':DOUBLE)
                              (B1-REF21631 ':DOUBLE)
                              (B2-REF21632 ':DOUBLE)
                              (B3-REF21633 ':DOUBLE)
                              (CSU-REF21634 ':DOUBLE)
                              (SNU-REF21635 ':DOUBLE)
                              (CSV-REF21636 ':DOUBLE)
                              (SNV-REF21637 ':DOUBLE)
                              (CSQ-REF21638 ':DOUBLE)
                              (SNQ-REF21639 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF21627 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF21628 :DOUBLE) A1)
    (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF21629 :DOUBLE) A2)
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF21630 :DOUBLE) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF21631 :DOUBLE) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF21632 :DOUBLE) B2)
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF21633 :DOUBLE) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF21634 :DOUBLE) CSU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF21635 :DOUBLE) SNU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF21636 :DOUBLE) CSV)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF21637 :DOUBLE) SNV)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF21638 :DOUBLE) CSQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF21639 :DOUBLE) SNQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAGS2 UPPER-REF21627 A1-REF21628 A2-REF21629 A3-REF21630
       B1-REF21631 B2-REF21632 B3-REF21633 CSU-REF21634 SNU-REF21635
       CSV-REF21636 SNV-REF21637 CSQ-REF21638 SNQ-REF21639))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQR2 "sgeqr2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21640 ':INT32) (N-REF21641 ':INT32)
                              (LDA-REF21643 ':INT32)
                              (INFO-REF21646 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21640 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21641 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21643 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21646 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21642 A)
                                            (TAU-REF21644 TAU)
                                            (WORK-REF21645 WORK))
      (%%SGEQR2 M-REF21640 N-REF21641 A-REF21642 LDA-REF21643
       TAU-REF21644 WORK-REF21645 INFO-REF21646))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SOPGTR "sopgtr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SOPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SOPGTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21648 ':INT32)
                              (LDQ-REF21652 ':INT32)
                              (INFO-REF21654 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF21652 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21654 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21649 AP)
                                            (TAU-REF21650 TAU)
                                            (Q-REF21651 Q)
                                            (WORK-REF21653 WORK))
      (%%SOPGTR UPLO N-REF21648 AP-REF21649 TAU-REF21650 Q-REF21651
       LDQ-REF21652 WORK-REF21653 INFO-REF21654))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGERFSX "cgerfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGERFSX
    (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21657 ':INT32)
                              (NRHS-REF21658 ':INT32)
                              (LDA-REF21660 ':INT32)
                              (LDAF-REF21662 ':INT32)
                              (LDB-REF21667 ':INT32)
                              (LDX-REF21669 ':INT32)
                              (RCOND-REF21670 ':FLOAT)
                              (N_ERR_BNDS-REF21672 ':INT32)
                              (NPARAMS-REF21675 ':INT32)
                              (INFO-REF21679 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21657 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21658 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21660 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21662 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21667 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21669 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21670 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21672 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21675 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21679 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21659 A)
                                            (AF-REF21661 AF)
                                            (IPIV-REF21663 IPIV)
                                            (R-REF21664 R)
                                            (C-REF21665 C)
                                            (B-REF21666 B)
                                            (X-REF21668 X)
                                            (BERR-REF21671 BERR)
                                            (ERR_BNDS_NORM-REF21673
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21674
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21676 PARAMS)
                                            (WORK-REF21677 WORK)
                                            (RWORK-REF21678 RWORK))
      (%%CGERFSX TRANS EQUED N-REF21657 NRHS-REF21658 A-REF21659
       LDA-REF21660 AF-REF21661 LDAF-REF21662 IPIV-REF21663 R-REF21664
       C-REF21665 B-REF21666 LDB-REF21667 X-REF21668 LDX-REF21669
       RCOND-REF21670 BERR-REF21671 N_ERR_BNDS-REF21672
       ERR_BNDS_NORM-REF21673 ERR_BNDS_COMP-REF21674 NPARAMS-REF21675
       PARAMS-REF21676 WORK-REF21677 RWORK-REF21678 INFO-REF21679))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGSVJ1 "zgsvj1_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS)
   (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (EPS :FOREIGN-ADDRESS) (SFMIN :FOREIGN-ADDRESS)
   (TOL :FOREIGN-ADDRESS) (NSWEEP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGSVJ1
    (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGSVJ1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21681 ':INT32) (N-REF21682 ':INT32)
                              (N1-REF21683 ':INT32)
                              (LDA-REF21685 ':INT32)
                              (MV-REF21688 ':INT32)
                              (LDV-REF21690 ':INT32)
                              (EPS-REF21691 ':DOUBLE)
                              (SFMIN-REF21692 ':DOUBLE)
                              (TOL-REF21693 ':DOUBLE)
                              (NSWEEP-REF21694 ':INT32)
                              (LWORK-REF21696 ':INT32)
                              (INFO-REF21697 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21681 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21682 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF21683 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21685 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF21688 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21690 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF21691 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF21692 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21693 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF21694 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21696 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21697 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21684 A)
                                            (D-REF21686 D)
                                            (SVA-REF21687 SVA)
                                            (V-REF21689 V)
                                            (WORK-REF21695 WORK))
      (%%ZGSVJ1 JOBV M-REF21681 N-REF21682 N1-REF21683 A-REF21684
       LDA-REF21685 D-REF21686 SVA-REF21687 MV-REF21688 V-REF21689
       LDV-REF21690 EPS-REF21691 SFMIN-REF21692 TOL-REF21693
       NSWEEP-REF21694 WORK-REF21695 LWORK-REF21696 INFO-REF21697))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPLQT2 "ztplqt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPLQT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21698 ':INT32) (N-REF21699 ':INT32)
                              (L-REF21700 ':INT32)
                              (LDA-REF21702 ':INT32)
                              (LDB-REF21704 ':INT32)
                              (LDT-REF21706 ':INT32)
                              (INFO-REF21707 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21698 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21699 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21700 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21702 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21704 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21706 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21707 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21701 A)
                                            (B-REF21703 B)
                                            (T-REF21705 T))
      (%%ZTPLQT2 M-REF21698 N-REF21699 L-REF21700 A-REF21701
       LDA-REF21702 B-REF21703 LDB-REF21704 T-REF21705 LDT-REF21706
       INFO-REF21707))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPTTS2 "dptts2_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPTTS2 (N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21708 ':INT32)
                              (NRHS-REF21709 ':INT32)
                              (LDB-REF21713 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21708 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21709 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21713 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21710 D)
                                            (E-REF21711 E)
                                            (B-REF21712 B))
      (%%DPTTS2 N-REF21708 NRHS-REF21709 D-REF21710 E-REF21711
       B-REF21712 LDB-REF21713))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTFTRI "dtftri_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21717 ':INT32)
                              (INFO-REF21719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21717 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21719 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21718 A))
      (%%DTFTRI TRANSR UPLO DIAG N-REF21717 A-REF21718 INFO-REF21719))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQRF "cgeqrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21720 ':INT32) (N-REF21721 ':INT32)
                              (LDA-REF21723 ':INT32)
                              (LWORK-REF21726 ':INT32)
                              (INFO-REF21727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21720 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21723 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21726 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21727 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21722 A)
                                            (TAU-REF21724 TAU)
                                            (WORK-REF21725 WORK))
      (%%CGEQRF M-REF21720 N-REF21721 A-REF21722 LDA-REF21723
       TAU-REF21724 WORK-REF21725 LWORK-REF21726 INFO-REF21727))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPTRS "csptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21729 ':INT32)
                              (NRHS-REF21730 ':INT32)
                              (LDB-REF21734 ':INT32)
                              (INFO-REF21735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21730 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21734 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21735 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21731 AP)
                                            (IPIV-REF21732 IPIV)
                                            (B-REF21733 B))
      (%%CSPTRS UPLO N-REF21729 NRHS-REF21730 AP-REF21731 IPIV-REF21732
       B-REF21733 LDB-REF21734 INFO-REF21735))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEES "cgees_")
  ((JOBVS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (SDIM :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (VS :FOREIGN-ADDRESS) (LDVS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (BWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEES
    (JOBVS SORT SELECT N A LDA SDIM W VS LDVS WORK LWORK RWORK BWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEES)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF21738 ':INT32)
                              (N-REF21739 ':INT32)
                              (LDA-REF21741 ':INT32)
                              (SDIM-REF21742 ':INT32)
                              (LDVS-REF21745 ':INT32)
                              (LWORK-REF21747 ':INT32)
                              (INFO-REF21750 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF21738 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21741 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF21742 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF21745 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21747 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21750 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21740 A)
                                            (W-REF21743 W)
                                            (VS-REF21744 VS)
                                            (WORK-REF21746 WORK)
                                            (RWORK-REF21748 RWORK)
                                            (BWORK-REF21749 BWORK))
      (%%CGEES JOBVS SORT SELECT-REF21738 N-REF21739 A-REF21740
       LDA-REF21741 SDIM-REF21742 W-REF21743 VS-REF21744 LDVS-REF21745
       WORK-REF21746 LWORK-REF21747 RWORK-REF21748 BWORK-REF21749
       INFO-REF21750))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEMLQ "cgemlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (TSIZE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEMLQ
    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21753 ':INT32) (N-REF21754 ':INT32)
                              (K-REF21755 ':INT32)
                              (LDA-REF21757 ':INT32)
                              (TSIZE-REF21759 ':INT32)
                              (LDC-REF21761 ':INT32)
                              (LWORK-REF21763 ':INT32)
                              (INFO-REF21764 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21753 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21754 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21755 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21757 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF21759 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21761 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21763 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21764 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21756 A)
                                            (T-REF21758 T)
                                            (C-REF21760 C)
                                            (WORK-REF21762 WORK))
      (%%CGEMLQ SIDE TRANS M-REF21753 N-REF21754 K-REF21755 A-REF21756
       LDA-REF21757 T-REF21758 TSIZE-REF21759 C-REF21760 LDC-REF21761
       WORK-REF21762 LWORK-REF21763 INFO-REF21764))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEEVX "dgeevx_")
  ((BALANC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (ABNRM :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEEVX
    (BALANC JOBVL JOBVR SENSE N A LDA WR WI VL LDVL VR LDVR ILO IHI
     SCALE ABNRM RCONDE RCONDV WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21769 ':INT32)
                              (LDA-REF21771 ':INT32)
                              (LDVL-REF21775 ':INT32)
                              (LDVR-REF21777 ':INT32)
                              (ILO-REF21778 ':INT32)
                              (IHI-REF21779 ':INT32)
                              (ABNRM-REF21781 ':DOUBLE)
                              (LWORK-REF21785 ':INT32)
                              (INFO-REF21787 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21769 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21771 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF21775 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF21777 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF21778 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF21779 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF21781 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21785 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21787 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21770 A)
                                            (WR-REF21772 WR)
                                            (WI-REF21773 WI)
                                            (VL-REF21774 VL)
                                            (VR-REF21776 VR)
                                            (SCALE-REF21780 SCALE)
                                            (RCONDE-REF21782 RCONDE)
                                            (RCONDV-REF21783 RCONDV)
                                            (WORK-REF21784 WORK)
                                            (IWORK-REF21786 IWORK))
      (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF21769 A-REF21770
       LDA-REF21771 WR-REF21772 WI-REF21773 VL-REF21774 LDVL-REF21775
       VR-REF21776 LDVR-REF21777 ILO-REF21778 IHI-REF21779
       SCALE-REF21780 ABNRM-REF21781 RCONDE-REF21782 RCONDV-REF21783
       WORK-REF21784 LWORK-REF21785 IWORK-REF21786 INFO-REF21787))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DZSUM1 "dzsum1_")
  ((N :FOREIGN-ADDRESS) (CX :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DZSUM1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DZSUM1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    CX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21788 ':INT32)
                              (INCX-REF21790 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21788 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21790 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF21789 CX))
      (%%DZSUM1 N-REF21788 CX-REF21789 INCX-REF21790))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRS_3 "dsytrs_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21792 ':INT32)
                              (NRHS-REF21793 ':INT32)
                              (LDA-REF21795 ':INT32)
                              (LDB-REF21799 ':INT32)
                              (INFO-REF21800 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21792 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21793 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21795 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21799 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21800 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21794 A)
                                            (E-REF21796 E)
                                            (IPIV-REF21797 IPIV)
                                            (B-REF21798 B))
      (%%DSYTRS_3 UPLO N-REF21792 NRHS-REF21793 A-REF21794 LDA-REF21795
       E-REF21796 IPIV-REF21797 B-REF21798 LDB-REF21799
       INFO-REF21800))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANSY "clansy_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21803 ':INT32)
                              (LDA-REF21805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21805 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21804 A)
                                            (WORK-REF21806 WORK))
      (%%CLANSY NORM UPLO N-REF21803 A-REF21804 LDA-REF21805
       WORK-REF21806))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANSP "slansp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21809 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21809 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21810 AP)
                                            (WORK-REF21811 WORK))
      (%%SLANSP NORM UPLO N-REF21809 AP-REF21810 WORK-REF21811))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAEXC "dlaexc_")
  ((WANTQ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (J1 :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAEXC (WANTQ N T LDT Q LDQ J1 N1 N2 WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEXC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF21812 ':INT32)
                              (N-REF21813 ':INT32)
                              (LDT-REF21815 ':INT32)
                              (LDQ-REF21817 ':INT32)
                              (J1-REF21818 ':INT32)
                              (N1-REF21819 ':INT32)
                              (N2-REF21820 ':INT32)
                              (INFO-REF21822 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF21812 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21813 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21815 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF21817 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF21818 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF21819 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF21820 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21822 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF21814 T)
                                            (Q-REF21816 Q)
                                            (WORK-REF21821 WORK))
      (%%DLAEXC WANTQ-REF21812 N-REF21813 T-REF21814 LDT-REF21815
       Q-REF21816 LDQ-REF21817 J1-REF21818 N1-REF21819 N2-REF21820
       WORK-REF21821 INFO-REF21822))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGR2 "cungr2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21823 ':INT32) (N-REF21824 ':INT32)
                              (K-REF21825 ':INT32)
                              (LDA-REF21827 ':INT32)
                              (INFO-REF21830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21823 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21824 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21825 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21827 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21826 A)
                                            (TAU-REF21828 TAU)
                                            (WORK-REF21829 WORK))
      (%%CUNGR2 M-REF21823 N-REF21824 K-REF21825 A-REF21826
       LDA-REF21827 TAU-REF21828 WORK-REF21829 INFO-REF21830))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYSVX "ssysvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYSVX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR BERR
     WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21833 ':INT32)
                              (NRHS-REF21834 ':INT32)
                              (LDA-REF21836 ':INT32)
                              (LDAF-REF21838 ':INT32)
                              (LDB-REF21841 ':INT32)
                              (LDX-REF21843 ':INT32)
                              (RCOND-REF21844 ':FLOAT)
                              (LWORK-REF21848 ':INT32)
                              (INFO-REF21850 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21833 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21834 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21836 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21838 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21841 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21843 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21844 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21848 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21850 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21835 A)
                                            (AF-REF21837 AF)
                                            (IPIV-REF21839 IPIV)
                                            (B-REF21840 B)
                                            (X-REF21842 X)
                                            (FERR-REF21845 FERR)
                                            (BERR-REF21846 BERR)
                                            (WORK-REF21847 WORK)
                                            (IWORK-REF21849 IWORK))
      (%%SSYSVX FACT UPLO N-REF21833 NRHS-REF21834 A-REF21835
       LDA-REF21836 AF-REF21837 LDAF-REF21838 IPIV-REF21839 B-REF21840
       LDB-REF21841 X-REF21842 LDX-REF21843 RCOND-REF21844
       FERR-REF21845 BERR-REF21846 WORK-REF21847 LWORK-REF21848
       IWORK-REF21849 INFO-REF21850))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRTTF "ctrttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21853 ':INT32)
                              (LDA-REF21855 ':INT32)
                              (INFO-REF21857 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21853 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21855 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21857 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21854 A)
                                            (ARF-REF21856 ARF))
      (%%CTRTTF TRANSR UPLO N-REF21853 A-REF21854 LDA-REF21855
       ARF-REF21856 INFO-REF21857))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRI_ROOK "csytri_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21859 ':INT32)
                              (LDA-REF21861 ':INT32)
                              (INFO-REF21864 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21861 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21864 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21860 A)
                                            (IPIV-REF21862 IPIV)
                                            (WORK-REF21863 WORK))
      (%%CSYTRI_ROOK UPLO N-REF21859 A-REF21860 LDA-REF21861
       IPIV-REF21862 WORK-REF21863 INFO-REF21864))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTZRZF "ctzrzf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTZRZF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21865 ':INT32) (N-REF21866 ':INT32)
                              (LDA-REF21868 ':INT32)
                              (LWORK-REF21871 ':INT32)
                              (INFO-REF21872 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21865 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21866 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21868 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21871 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21872 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21867 A)
                                            (TAU-REF21869 TAU)
                                            (WORK-REF21870 WORK))
      (%%CTZRZF M-REF21865 N-REF21866 A-REF21867 LDA-REF21868
       TAU-REF21869 WORK-REF21870 LWORK-REF21871 INFO-REF21872))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYSV_ROOK "ssysv_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYSV_ROOK
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21874 ':INT32)
                              (NRHS-REF21875 ':INT32)
                              (LDA-REF21877 ':INT32)
                              (LDB-REF21880 ':INT32)
                              (LWORK-REF21882 ':INT32)
                              (INFO-REF21883 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21874 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21875 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21877 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21880 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21882 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21883 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21876 A)
                                            (IPIV-REF21878 IPIV)
                                            (B-REF21879 B)
                                            (WORK-REF21881 WORK))
      (%%SSYSV_ROOK UPLO N-REF21874 NRHS-REF21875 A-REF21876
       LDA-REF21877 IPIV-REF21878 B-REF21879 LDB-REF21880 WORK-REF21881
       LWORK-REF21882 INFO-REF21883))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYSWAPR "dsyswapr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (I1 :FOREIGN-ADDRESS)
   (I2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSWAPR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21885 ':INT32)
                              (LDA-REF21887 ':INT32)
                              (I1-REF21888 ':INT32)
                              (I2-REF21889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21885 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21887 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF21888 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF21889 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21886 A))
      (%%DSYSWAPR UPLO N-REF21885 A-REF21886 LDA-REF21887 I1-REF21888
       I2-REF21889))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMBR "dormbr_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMBR
    (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21893 ':INT32) (N-REF21894 ':INT32)
                              (K-REF21895 ':INT32)
                              (LDA-REF21897 ':INT32)
                              (LDC-REF21900 ':INT32)
                              (LWORK-REF21902 ':INT32)
                              (INFO-REF21903 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21893 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21894 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21895 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21897 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21900 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21902 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21903 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21896 A)
                                            (TAU-REF21898 TAU)
                                            (C-REF21899 C)
                                            (WORK-REF21901 WORK))
      (%%DORMBR VECT SIDE TRANS M-REF21893 N-REF21894 K-REF21895
       A-REF21896 LDA-REF21897 TAU-REF21898 C-REF21899 LDC-REF21900
       WORK-REF21901 LWORK-REF21902 INFO-REF21903))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQR2P "dgeqr2p_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21904 ':INT32) (N-REF21905 ':INT32)
                              (LDA-REF21907 ':INT32)
                              (INFO-REF21910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21904 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21905 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21907 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21906 A)
                                            (TAU-REF21908 TAU)
                                            (WORK-REF21909 WORK))
      (%%DGEQR2P M-REF21904 N-REF21905 A-REF21906 LDA-REF21907
       TAU-REF21908 WORK-REF21909 INFO-REF21910))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAGTM "slagtm_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAGTM
    (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21912 ':INT32)
                              (NRHS-REF21913 ':INT32)
                              (ALPHA-REF21914 ':FLOAT)
                              (LDX-REF21919 ':INT32)
                              (BETA-REF21920 ':FLOAT)
                              (LDB-REF21922 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21912 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21913 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF21914 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21919 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF21920 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21922 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF21915 DL)
                                            (D-REF21916 D)
                                            (DU-REF21917 DU)
                                            (X-REF21918 X)
                                            (B-REF21921 B))
      (%%SLAGTM TRANS N-REF21912 NRHS-REF21913 ALPHA-REF21914
       DL-REF21915 D-REF21916 DU-REF21917 X-REF21918 LDX-REF21919
       BETA-REF21920 B-REF21921 LDB-REF21922))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GERCOND_X "zla_gercond_x_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GERCOND_X
    (TRANS N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21924 ':INT32)
                              (LDA-REF21926 ':INT32)
                              (LDAF-REF21928 ':INT32)
                              (INFO-REF21931 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21924 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21926 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21928 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21931 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21925 A)
                                            (AF-REF21927 AF)
                                            (IPIV-REF21929 IPIV)
                                            (X-REF21930 X)
                                            (WORK-REF21932 WORK)
                                            (RWORK-REF21933 RWORK))
      (%%ZLA_GERCOND_X TRANS N-REF21924 A-REF21925 LDA-REF21926
       AF-REF21927 LDAF-REF21928 IPIV-REF21929 X-REF21930 INFO-REF21931
       WORK-REF21932 RWORK-REF21933))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOSVXX "cposvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOSVXX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND RPVGRW
     BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21936 ':INT32)
                              (NRHS-REF21937 ':INT32)
                              (LDA-REF21939 ':INT32)
                              (LDAF-REF21941 ':INT32)
                              (LDB-REF21945 ':INT32)
                              (LDX-REF21947 ':INT32)
                              (RCOND-REF21948 ':FLOAT)
                              (RPVGRW-REF21949 ':FLOAT)
                              (N_ERR_BNDS-REF21951 ':INT32)
                              (NPARAMS-REF21954 ':INT32)
                              (INFO-REF21958 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21937 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21939 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21941 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21945 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21947 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21948 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF21949 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21951 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21954 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21958 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21938 A)
                                            (AF-REF21940 AF)
                                            (S-REF21943 S)
                                            (B-REF21944 B)
                                            (X-REF21946 X)
                                            (BERR-REF21950 BERR)
                                            (ERR_BNDS_NORM-REF21952
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21953
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21955 PARAMS)
                                            (WORK-REF21956 WORK)
                                            (RWORK-REF21957 RWORK))
      (%%CPOSVXX FACT UPLO N-REF21936 NRHS-REF21937 A-REF21938
       LDA-REF21939 AF-REF21940 LDAF-REF21941 EQUED S-REF21943
       B-REF21944 LDB-REF21945 X-REF21946 LDX-REF21947 RCOND-REF21948
       RPVGRW-REF21949 BERR-REF21950 N_ERR_BNDS-REF21951
       ERR_BNDS_NORM-REF21952 ERR_BNDS_COMP-REF21953 NPARAMS-REF21954
       PARAMS-REF21955 WORK-REF21956 RWORK-REF21957 INFO-REF21958))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZCPOSV "zcposv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (SWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (ITER :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZCPOSV
    (UPLO N NRHS A LDA B LDB X LDX WORK SWORK RWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCPOSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    SWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21960 ':INT32)
                              (NRHS-REF21961 ':INT32)
                              (LDA-REF21963 ':INT32)
                              (LDB-REF21965 ':INT32)
                              (LDX-REF21967 ':INT32)
                              (ITER-REF21971 ':INT32)
                              (INFO-REF21972 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21960 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21961 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21963 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21965 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21967 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF21971 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21972 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21962 A)
                                            (B-REF21964 B)
                                            (X-REF21966 X)
                                            (WORK-REF21968 WORK)
                                            (SWORK-REF21969 SWORK)
                                            (RWORK-REF21970 RWORK))
      (%%ZCPOSV UPLO N-REF21960 NRHS-REF21961 A-REF21962 LDA-REF21963
       B-REF21964 LDB-REF21965 X-REF21966 LDX-REF21967 WORK-REF21968
       SWORK-REF21969 RWORK-REF21970 ITER-REF21971 INFO-REF21972))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_GBRCOND_C "cla_gbrcond_c_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (CAPPLY :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GBRCOND_C
    (TRANS N KL KU AB LDAB AFB LDAFB IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21974 ':INT32)
                              (KL-REF21975 ':INT32)
                              (KU-REF21976 ':INT32)
                              (LDAB-REF21978 ':INT32)
                              (LDAFB-REF21980 ':INT32)
                              (CAPPLY-REF21983 ':INT32)
                              (INFO-REF21984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21974 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF21975 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF21976 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21978 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21980 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF21983 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21984 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21977 AB)
                                            (AFB-REF21979 AFB)
                                            (IPIV-REF21981 IPIV)
                                            (C-REF21982 C)
                                            (WORK-REF21985 WORK)
                                            (RWORK-REF21986 RWORK))
      (%%CLA_GBRCOND_C TRANS N-REF21974 KL-REF21975 KU-REF21976
       AB-REF21977 LDAB-REF21978 AFB-REF21979 LDAFB-REF21980
       IPIV-REF21981 C-REF21982 CAPPLY-REF21983 INFO-REF21984
       WORK-REF21985 RWORK-REF21986))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTBTRS "ctbtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTBTRS
    (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21990 ':INT32)
                              (KD-REF21991 ':INT32)
                              (NRHS-REF21992 ':INT32)
                              (LDAB-REF21994 ':INT32)
                              (LDB-REF21996 ':INT32)
                              (INFO-REF21997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21990 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21991 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21992 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21994 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21996 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21993 AB)
                                            (B-REF21995 B))
      (%%CTBTRS UPLO TRANS DIAG N-REF21990 KD-REF21991 NRHS-REF21992
       AB-REF21993 LDAB-REF21994 B-REF21995 LDB-REF21996
       INFO-REF21997))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DDISNA "ddisna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (SEP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DDISNA (JOB M N D SEP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DDISNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21999 ':INT32) (N-REF22000 ':INT32)
                              (INFO-REF22003 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21999 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22000 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22003 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF22001 D)
                                            (SEP-REF22002 SEP))
      (%%DDISNA JOB M-REF21999 N-REF22000 D-REF22001 SEP-REF22002
       INFO-REF22003))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPGVD "zhpgvd_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPGVD
    (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGVD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF22004 ':INT32)
                              (N-REF22007 ':INT32)
                              (LDZ-REF22012 ':INT32)
                              (LWORK-REF22014 ':INT32)
                              (LRWORK-REF22016 ':INT32)
                              (LIWORK-REF22018 ':INT32)
                              (INFO-REF22019 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF22004 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22007 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22012 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22014 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22016 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF22018 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22019 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22008 AP)
                                            (BP-REF22009 BP)
                                            (W-REF22010 W)
                                            (Z-REF22011 Z)
                                            (WORK-REF22013 WORK)
                                            (RWORK-REF22015 RWORK)
                                            (IWORK-REF22017 IWORK))
      (%%ZHPGVD ITYPE-REF22004 JOBZ UPLO N-REF22007 AP-REF22008
       BP-REF22009 W-REF22010 Z-REF22011 LDZ-REF22012 WORK-REF22013
       LWORK-REF22014 RWORK-REF22015 LRWORK-REF22016 IWORK-REF22017
       LIWORK-REF22018 INFO-REF22019))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORG2R "dorg2r_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORG2R)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22020 ':INT32) (N-REF22021 ':INT32)
                              (K-REF22022 ':INT32)
                              (LDA-REF22024 ':INT32)
                              (INFO-REF22027 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22020 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22022 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22024 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22027 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22023 A)
                                            (TAU-REF22025 TAU)
                                            (WORK-REF22026 WORK))
      (%%DORG2R M-REF22020 N-REF22021 K-REF22022 A-REF22023
       LDA-REF22024 TAU-REF22025 WORK-REF22026 INFO-REF22027))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DHSEIN "dhsein_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EIGSRC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (INITV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IFAILL :FOREIGN-ADDRESS)
   (IFAILR :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DHSEIN
    (SIDE EIGSRC INITV SELECT N H LDH WR WI VL LDVL VR LDVR MM M WORK
     IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEIN)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAILL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAILR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22032 ':INT32)
                              (LDH-REF22034 ':INT32)
                              (LDVL-REF22038 ':INT32)
                              (LDVR-REF22040 ':INT32)
                              (MM-REF22041 ':INT32)
                              (M-REF22042 ':INT32)
                              (INFO-REF22046 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22032 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF22034 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22038 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22040 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22041 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22042 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22046 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22031 SELECT)
                                            (H-REF22033 H)
                                            (WR-REF22035 WR)
                                            (WI-REF22036 WI)
                                            (VL-REF22037 VL)
                                            (VR-REF22039 VR)
                                            (WORK-REF22043 WORK)
                                            (IFAILL-REF22044 IFAILL)
                                            (IFAILR-REF22045 IFAILR))
      (%%DHSEIN SIDE EIGSRC INITV SELECT-REF22031 N-REF22032 H-REF22033
       LDH-REF22034 WR-REF22035 WI-REF22036 VL-REF22037 LDVL-REF22038
       VR-REF22039 LDVR-REF22040 MM-REF22041 M-REF22042 WORK-REF22043
       IFAILL-REF22044 IFAILR-REF22045 INFO-REF22046))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRTTF "dtrttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22049 ':INT32)
                              (LDA-REF22051 ':INT32)
                              (INFO-REF22053 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22049 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22051 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22053 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22050 A)
                                            (ARF-REF22052 ARF))
      (%%DTRTTF TRANSR UPLO N-REF22049 A-REF22050 LDA-REF22051
       ARF-REF22052 INFO-REF22053))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STGEVC "stgevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (LDS :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (LDP :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STGEVC
    (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22057 ':INT32)
                              (LDS-REF22059 ':INT32)
                              (LDP-REF22061 ':INT32)
                              (LDVL-REF22063 ':INT32)
                              (LDVR-REF22065 ':INT32)
                              (MM-REF22066 ':INT32)
                              (M-REF22067 ':INT32)
                              (INFO-REF22069 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22057 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF22059 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF22061 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22063 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22065 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22066 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22067 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22069 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22056 SELECT)
                                            (S-REF22058 S)
                                            (P-REF22060 P)
                                            (VL-REF22062 VL)
                                            (VR-REF22064 VR)
                                            (WORK-REF22068 WORK))
      (%%STGEVC SIDE HOWMNY SELECT-REF22056 N-REF22057 S-REF22058
       LDS-REF22059 P-REF22060 LDP-REF22061 VL-REF22062 LDVL-REF22063
       VR-REF22064 LDVR-REF22065 MM-REF22066 M-REF22067 WORK-REF22068
       INFO-REF22069))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELSY "cgelsy_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RANK :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELSY
    (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22070 ':INT32) (N-REF22071 ':INT32)
                              (NRHS-REF22072 ':INT32)
                              (LDA-REF22074 ':INT32)
                              (LDB-REF22076 ':INT32)
                              (RCOND-REF22078 ':FLOAT)
                              (RANK-REF22079 ':INT32)
                              (LWORK-REF22081 ':INT32)
                              (INFO-REF22083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22070 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22071 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22072 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22074 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22076 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22078 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF22079 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22081 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22073 A)
                                            (B-REF22075 B)
                                            (JPVT-REF22077 JPVT)
                                            (WORK-REF22080 WORK)
                                            (RWORK-REF22082 RWORK))
      (%%CGELSY M-REF22070 N-REF22071 NRHS-REF22072 A-REF22073
       LDA-REF22074 B-REF22075 LDB-REF22076 JPVT-REF22077
       RCOND-REF22078 RANK-REF22079 WORK-REF22080 LWORK-REF22081
       RWORK-REF22082 INFO-REF22083))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQR4 "zlaqr4_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQR4
    (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF22084 ':INT32)
                              (WANTZ-REF22085 ':INT32)
                              (N-REF22086 ':INT32)
                              (ILO-REF22087 ':INT32)
                              (IHI-REF22088 ':INT32)
                              (LDH-REF22090 ':INT32)
                              (ILOZ-REF22092 ':INT32)
                              (IHIZ-REF22093 ':INT32)
                              (LDZ-REF22095 ':INT32)
                              (LWORK-REF22097 ':INT32)
                              (INFO-REF22098 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF22084 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22085 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22087 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22088 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF22090 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF22092 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF22093 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22095 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22097 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22098 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF22089 H)
                                            (W-REF22091 W)
                                            (Z-REF22094 Z)
                                            (WORK-REF22096 WORK))
      (%%ZLAQR4 WANTT-REF22084 WANTZ-REF22085 N-REF22086 ILO-REF22087
       IHI-REF22088 H-REF22089 LDH-REF22090 W-REF22091 ILOZ-REF22092
       IHIZ-REF22093 Z-REF22094 LDZ-REF22095 WORK-REF22096
       LWORK-REF22097 INFO-REF22098))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAMSWLQ "slamswlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAMSWLQ
    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMSWLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22101 ':INT32) (N-REF22102 ':INT32)
                              (K-REF22103 ':INT32)
                              (MB-REF22104 ':INT32)
                              (NB-REF22105 ':INT32)
                              (LDA-REF22107 ':INT32)
                              (LDT-REF22109 ':INT32)
                              (LDC-REF22111 ':INT32)
                              (LWORK-REF22113 ':INT32)
                              (INFO-REF22114 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22101 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22102 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22103 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22104 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22105 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22107 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22109 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22111 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22113 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22114 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22106 A)
                                            (T-REF22108 T)
                                            (C-REF22110 C)
                                            (WORK-REF22112 WORK))
      (%%SLAMSWLQ SIDE TRANS M-REF22101 N-REF22102 K-REF22103
       MB-REF22104 NB-REF22105 A-REF22106 LDA-REF22107 T-REF22108
       LDT-REF22109 C-REF22110 LDC-REF22111 WORK-REF22112
       LWORK-REF22113 INFO-REF22114))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_PORPVGRW "zla_porpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NCOLS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF22116 ':INT32)
                              (LDA-REF22118 ':INT32)
                              (LDAF-REF22120 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF22116 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22118 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22120 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22117 A)
                                            (AF-REF22119 AF)
                                            (WORK-REF22121 WORK))
      (%%ZLA_PORPVGRW UPLO NCOLS-REF22116 A-REF22117 LDA-REF22118
       AF-REF22119 LDAF-REF22120 WORK-REF22121))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPBEQU "cpbequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22123 ':INT32)
                              (KD-REF22124 ':INT32)
                              (LDAB-REF22126 ':INT32)
                              (SCOND-REF22128 ':FLOAT)
                              (AMAX-REF22129 ':FLOAT)
                              (INFO-REF22130 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22123 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22124 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22126 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF22128 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF22129 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22130 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22125 AB)
                                            (S-REF22127 S))
      (%%CPBEQU UPLO N-REF22123 KD-REF22124 AB-REF22125 LDAB-REF22126
       S-REF22127 SCOND-REF22128 AMAX-REF22129 INFO-REF22130))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGSVJ1 "dgsvj1_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS)
   (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (EPS :FOREIGN-ADDRESS) (SFMIN :FOREIGN-ADDRESS)
   (TOL :FOREIGN-ADDRESS) (NSWEEP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGSVJ1
    (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22132 ':INT32) (N-REF22133 ':INT32)
                              (N1-REF22134 ':INT32)
                              (LDA-REF22136 ':INT32)
                              (MV-REF22139 ':INT32)
                              (LDV-REF22141 ':INT32)
                              (EPS-REF22142 ':DOUBLE)
                              (SFMIN-REF22143 ':DOUBLE)
                              (TOL-REF22144 ':DOUBLE)
                              (NSWEEP-REF22145 ':INT32)
                              (LWORK-REF22147 ':INT32)
                              (INFO-REF22148 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22132 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22133 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF22134 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22136 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF22139 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22141 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF22142 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF22143 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF22144 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF22145 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22147 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22148 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22135 A)
                                            (D-REF22137 D)
                                            (SVA-REF22138 SVA)
                                            (V-REF22140 V)
                                            (WORK-REF22146 WORK))
      (%%DGSVJ1 JOBV M-REF22132 N-REF22133 N1-REF22134 A-REF22135
       LDA-REF22136 D-REF22137 SVA-REF22138 MV-REF22139 V-REF22140
       LDV-REF22141 EPS-REF22142 SFMIN-REF22143 TOL-REF22144
       NSWEEP-REF22145 WORK-REF22146 LWORK-REF22147 INFO-REF22148))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESVJ "dgesvj_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESVJ
    (JOBA JOBU JOBV M N A LDA SVA MV V LDV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVJ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22152 ':INT32) (N-REF22153 ':INT32)
                              (LDA-REF22155 ':INT32)
                              (MV-REF22157 ':INT32)
                              (LDV-REF22159 ':INT32)
                              (LWORK-REF22161 ':INT32)
                              (INFO-REF22162 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22152 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22153 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22155 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF22157 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22159 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22161 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22162 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22154 A)
                                            (SVA-REF22156 SVA)
                                            (V-REF22158 V)
                                            (WORK-REF22160 WORK))
      (%%DGESVJ JOBA JOBU JOBV M-REF22152 N-REF22153 A-REF22154
       LDA-REF22155 SVA-REF22156 MV-REF22157 V-REF22158 LDV-REF22159
       WORK-REF22160 LWORK-REF22161 INFO-REF22162))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRSNA "dtrsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SEP :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRSNA
    (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK LDWORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22166 ':INT32)
                              (LDT-REF22168 ':INT32)
                              (LDVL-REF22170 ':INT32)
                              (LDVR-REF22172 ':INT32)
                              (MM-REF22175 ':INT32)
                              (M-REF22176 ':INT32)
                              (LDWORK-REF22178 ':INT32)
                              (INFO-REF22180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22168 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22170 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22172 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22175 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22176 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22178 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22165 SELECT)
                                            (T-REF22167 T)
                                            (VL-REF22169 VL)
                                            (VR-REF22171 VR)
                                            (S-REF22173 S)
                                            (SEP-REF22174 SEP)
                                            (WORK-REF22177 WORK)
                                            (IWORK-REF22179 IWORK))
      (%%DTRSNA JOB HOWMNY SELECT-REF22165 N-REF22166 T-REF22167
       LDT-REF22168 VL-REF22169 LDVL-REF22170 VR-REF22171 LDVR-REF22172
       S-REF22173 SEP-REF22174 MM-REF22175 M-REF22176 WORK-REF22177
       LDWORK-REF22178 IWORK-REF22179 INFO-REF22180))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAUU2 "zlauu2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22182 ':INT32)
                              (LDA-REF22184 ':INT32)
                              (INFO-REF22185 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22182 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22184 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22185 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22183 A))
      (%%ZLAUU2 UPLO N-REF22182 A-REF22183 LDA-REF22184
       INFO-REF22185))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGSVD3 "sggsvd3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGSVD3
    (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV Q LDQ
     WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGSVD3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22189 ':INT32) (N-REF22190 ':INT32)
                              (P-REF22191 ':INT32) (K-REF22192 ':INT32)
                              (L-REF22193 ':INT32)
                              (LDA-REF22195 ':INT32)
                              (LDB-REF22197 ':INT32)
                              (LDU-REF22201 ':INT32)
                              (LDV-REF22203 ':INT32)
                              (LDQ-REF22205 ':INT32)
                              (LWORK-REF22207 ':INT32)
                              (INFO-REF22209 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22189 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22191 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22192 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22193 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22195 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22197 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF22201 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22203 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22205 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22207 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22209 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22194 A)
                                            (B-REF22196 B)
                                            (ALPHA-REF22198 ALPHA)
                                            (BETA-REF22199 BETA)
                                            (U-REF22200 U)
                                            (V-REF22202 V)
                                            (Q-REF22204 Q)
                                            (WORK-REF22206 WORK)
                                            (IWORK-REF22208 IWORK))
      (%%SGGSVD3 JOBU JOBV JOBQ M-REF22189 N-REF22190 P-REF22191
       K-REF22192 L-REF22193 A-REF22194 LDA-REF22195 B-REF22196
       LDB-REF22197 ALPHA-REF22198 BETA-REF22199 U-REF22200
       LDU-REF22201 V-REF22202 LDV-REF22203 Q-REF22204 LDQ-REF22205
       WORK-REF22206 LWORK-REF22207 IWORK-REF22208 INFO-REF22209))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBGV "ssbgv_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBGV
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22212 ':INT32)
                              (KA-REF22213 ':INT32)
                              (KB-REF22214 ':INT32)
                              (LDAB-REF22216 ':INT32)
                              (LDBB-REF22218 ':INT32)
                              (LDZ-REF22221 ':INT32)
                              (INFO-REF22223 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22212 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF22213 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF22214 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22216 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF22218 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22221 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22223 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22215 AB)
                                            (BB-REF22217 BB)
                                            (W-REF22219 W)
                                            (Z-REF22220 Z)
                                            (WORK-REF22222 WORK))
      (%%SSBGV JOBZ UPLO N-REF22212 KA-REF22213 KB-REF22214 AB-REF22215
       LDAB-REF22216 BB-REF22217 LDBB-REF22218 W-REF22219 Z-REF22220
       LDZ-REF22221 WORK-REF22222 INFO-REF22223))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEMQRT "dgemqrt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEMQRT
    (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22226 ':INT32) (N-REF22227 ':INT32)
                              (K-REF22228 ':INT32)
                              (NB-REF22229 ':INT32)
                              (LDV-REF22231 ':INT32)
                              (LDT-REF22233 ':INT32)
                              (LDC-REF22235 ':INT32)
                              (INFO-REF22237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22226 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22227 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22228 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22229 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22231 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22233 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22235 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22230 V)
                                            (T-REF22232 T)
                                            (C-REF22234 C)
                                            (WORK-REF22236 WORK))
      (%%DGEMQRT SIDE TRANS M-REF22226 N-REF22227 K-REF22228
       NB-REF22229 V-REF22230 LDV-REF22231 T-REF22232 LDT-REF22233
       C-REF22234 LDC-REF22235 WORK-REF22236 INFO-REF22237))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANGE "dlange_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22239 ':INT32) (N-REF22240 ':INT32)
                              (LDA-REF22242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22239 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22240 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22242 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22241 A)
                                            (WORK-REF22243 WORK))
      (%%DLANGE NORM M-REF22239 N-REF22240 A-REF22241 LDA-REF22242
       WORK-REF22243))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_HERCOND_C "zla_hercond_c_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (CAPPLY :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_HERCOND_C
    (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22245 ':INT32)
                              (LDA-REF22247 ':INT32)
                              (LDAF-REF22249 ':INT32)
                              (CAPPLY-REF22252 ':INT32)
                              (INFO-REF22253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22245 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22249 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF22252 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22253 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22246 A)
                                            (AF-REF22248 AF)
                                            (IPIV-REF22250 IPIV)
                                            (C-REF22251 C)
                                            (WORK-REF22254 WORK)
                                            (RWORK-REF22255 RWORK))
      (%%ZLA_HERCOND_C UPLO N-REF22245 A-REF22246 LDA-REF22247
       AF-REF22248 LDAF-REF22249 IPIV-REF22250 C-REF22251
       CAPPLY-REF22252 INFO-REF22253 WORK-REF22254 RWORK-REF22255))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGQRF "sggqrf_")
  ((N :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAUA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TAUB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGQRF
    (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGQRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22256 ':INT32) (M-REF22257 ':INT32)
                              (P-REF22258 ':INT32)
                              (LDA-REF22260 ':INT32)
                              (LDB-REF22263 ':INT32)
                              (LWORK-REF22266 ':INT32)
                              (INFO-REF22267 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22257 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22258 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22260 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22263 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22266 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22267 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22259 A)
                                            (TAUA-REF22261 TAUA)
                                            (B-REF22262 B)
                                            (TAUB-REF22264 TAUB)
                                            (WORK-REF22265 WORK))
      (%%SGGQRF N-REF22256 M-REF22257 P-REF22258 A-REF22259
       LDA-REF22260 TAUA-REF22261 B-REF22262 LDB-REF22263 TAUB-REF22264
       WORK-REF22265 LWORK-REF22266 INFO-REF22267))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAS2 "slas2_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (SSMIN :FOREIGN-ADDRESS) (SSMAX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAS2 (F G H SSMIN SSMAX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAS2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT H)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMAX))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF22268 ':FLOAT) (G-REF22269 ':FLOAT)
                              (H-REF22270 ':FLOAT)
                              (SSMIN-REF22271 ':FLOAT)
                              (SSMAX-REF22272 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF22268 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF22269 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF22270 :FLOAT) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF22271 :FLOAT) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF22272 :FLOAT) SSMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAS2 F-REF22268 G-REF22269 H-REF22270 SSMIN-REF22271
       SSMAX-REF22272))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEVD_2STAGE "dsyevd_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEVD_2STAGE
    (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22275 ':INT32)
                              (LDA-REF22277 ':INT32)
                              (LWORK-REF22280 ':INT32)
                              (LIWORK-REF22282 ':INT32)
                              (INFO-REF22283 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22275 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22277 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22280 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF22282 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22283 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22276 A)
                                            (W-REF22278 W)
                                            (WORK-REF22279 WORK)
                                            (IWORK-REF22281 IWORK))
      (%%DSYEVD_2STAGE JOBZ UPLO N-REF22275 A-REF22276 LDA-REF22277
       W-REF22278 WORK-REF22279 LWORK-REF22280 IWORK-REF22281
       LIWORK-REF22282 INFO-REF22283))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPEVX "chpevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPEVX
    (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK RWORK IWORK
     IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22287 ':INT32)
                              (VL-REF22289 ':FLOAT)
                              (VU-REF22290 ':FLOAT)
                              (IL-REF22291 ':INT32)
                              (IU-REF22292 ':INT32)
                              (ABSTOL-REF22293 ':FLOAT)
                              (M-REF22294 ':INT32)
                              (LDZ-REF22297 ':INT32)
                              (INFO-REF22302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22287 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF22289 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF22290 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF22291 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF22292 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF22293 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22294 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22297 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22302 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22288 AP)
                                            (W-REF22295 W)
                                            (Z-REF22296 Z)
                                            (WORK-REF22298 WORK)
                                            (RWORK-REF22299 RWORK)
                                            (IWORK-REF22300 IWORK)
                                            (IFAIL-REF22301 IFAIL))
      (%%CHPEVX JOBZ RANGE UPLO N-REF22287 AP-REF22288 VL-REF22289
       VU-REF22290 IL-REF22291 IU-REF22292 ABSTOL-REF22293 M-REF22294
       W-REF22295 Z-REF22296 LDZ-REF22297 WORK-REF22298 RWORK-REF22299
       IWORK-REF22300 IFAIL-REF22301 INFO-REF22302))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAUU2 "slauu2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAUU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22304 ':INT32)
                              (LDA-REF22306 ':INT32)
                              (INFO-REF22307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22304 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22306 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22305 A))
      (%%SLAUU2 UPLO N-REF22304 A-REF22305 LDA-REF22306
       INFO-REF22307))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGEVC "ztgevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (LDS :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (LDP :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGEVC
    (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22311 ':INT32)
                              (LDS-REF22313 ':INT32)
                              (LDP-REF22315 ':INT32)
                              (LDVL-REF22317 ':INT32)
                              (LDVR-REF22319 ':INT32)
                              (MM-REF22320 ':INT32)
                              (M-REF22321 ':INT32)
                              (INFO-REF22324 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22311 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF22313 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF22315 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22317 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22319 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22320 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22321 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22324 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22310 SELECT)
                                            (S-REF22312 S)
                                            (P-REF22314 P)
                                            (VL-REF22316 VL)
                                            (VR-REF22318 VR)
                                            (WORK-REF22322 WORK)
                                            (RWORK-REF22323 RWORK))
      (%%ZTGEVC SIDE HOWMNY SELECT-REF22310 N-REF22311 S-REF22312
       LDS-REF22313 P-REF22314 LDP-REF22315 VL-REF22316 LDVL-REF22317
       VR-REF22318 LDVR-REF22319 MM-REF22320 M-REF22321 WORK-REF22322
       RWORK-REF22323 INFO-REF22324))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYSV_RK "csysv_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYSV_RK
    (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22326 ':INT32)
                              (NRHS-REF22327 ':INT32)
                              (LDA-REF22329 ':INT32)
                              (LDB-REF22333 ':INT32)
                              (LWORK-REF22335 ':INT32)
                              (INFO-REF22336 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22326 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22327 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22329 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22333 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22335 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22336 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22328 A)
                                            (E-REF22330 E)
                                            (IPIV-REF22331 IPIV)
                                            (B-REF22332 B)
                                            (WORK-REF22334 WORK))
      (%%CSYSV_RK UPLO N-REF22326 NRHS-REF22327 A-REF22328 LDA-REF22329
       E-REF22330 IPIV-REF22331 B-REF22332 LDB-REF22333 WORK-REF22334
       LWORK-REF22335 INFO-REF22336))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPBCON "cpbcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPBCON
    (UPLO N KD AB LDAB ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22338 ':INT32)
                              (KD-REF22339 ':INT32)
                              (LDAB-REF22341 ':INT32)
                              (ANORM-REF22342 ':FLOAT)
                              (RCOND-REF22343 ':FLOAT)
                              (INFO-REF22346 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22339 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22341 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF22342 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22343 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22346 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22340 AB)
                                            (WORK-REF22344 WORK)
                                            (RWORK-REF22345 RWORK))
      (%%CPBCON UPLO N-REF22338 KD-REF22339 AB-REF22340 LDAB-REF22341
       ANORM-REF22342 RCOND-REF22343 WORK-REF22344 RWORK-REF22345
       INFO-REF22346))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTFSM "dtfsm_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTFSM
    (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFSM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22352 ':INT32) (N-REF22353 ':INT32)
                              (ALPHA-REF22354 ':DOUBLE)
                              (LDB-REF22357 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22352 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF22354 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22357 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22355 A)
                                            (B-REF22356 B))
      (%%DTFSM TRANSR SIDE UPLO TRANS DIAG M-REF22352 N-REF22353
       ALPHA-REF22354 A-REF22355 B-REF22356 LDB-REF22357))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGTTS2 "zgtts2_")
  ((ITRANS :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF22358 ':INT32)
                              (N-REF22359 ':INT32)
                              (NRHS-REF22360 ':INT32)
                              (LDB-REF22367 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF22358 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22359 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22360 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22367 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF22361 DL)
                                            (D-REF22362 D)
                                            (DU-REF22363 DU)
                                            (DU2-REF22364 DU2)
                                            (IPIV-REF22365 IPIV)
                                            (B-REF22366 B))
      (%%ZGTTS2 ITRANS-REF22358 N-REF22359 NRHS-REF22360 DL-REF22361
       D-REF22362 DU-REF22363 DU2-REF22364 IPIV-REF22365 B-REF22366
       LDB-REF22367))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQR1 "zlaqr1_")
  ((N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (S1 :FOREIGN-ADDRESS) (S2 :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQR1 (N H LDH S1 S2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22368 ':INT32)
                              (LDH-REF22370 ':INT32)
                              (S1-REF22371
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (S2-REF22372
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF22370 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S1-REF22371
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S2-REF22372
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S2)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF22369 H)
                                            (V-REF22373 V))
      (%%ZLAQR1 N-REF22368 H-REF22369 LDH-REF22370 S1-REF22371
       S2-REF22372 V-REF22373))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQP3 "sgeqp3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQP3 (M N A LDA JPVT TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQP3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22374 ':INT32) (N-REF22375 ':INT32)
                              (LDA-REF22377 ':INT32)
                              (LWORK-REF22381 ':INT32)
                              (INFO-REF22382 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22374 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22375 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22377 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22381 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22382 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22376 A)
                                            (JPVT-REF22378 JPVT)
                                            (TAU-REF22379 TAU)
                                            (WORK-REF22380 WORK))
      (%%SGEQP3 M-REF22374 N-REF22375 A-REF22376 LDA-REF22377
       JPVT-REF22378 TAU-REF22379 WORK-REF22380 LWORK-REF22381
       INFO-REF22382))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRI_3 "dsytri_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22384 ':INT32)
                              (LDA-REF22386 ':INT32)
                              (LWORK-REF22390 ':INT32)
                              (INFO-REF22391 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22384 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22386 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22390 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22391 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22385 A)
                                            (E-REF22387 E)
                                            (IPIV-REF22388 IPIV)
                                            (WORK-REF22389 WORK))
      (%%DSYTRI_3 UPLO N-REF22384 A-REF22385 LDA-REF22386 E-REF22387
       IPIV-REF22388 WORK-REF22389 LWORK-REF22390 INFO-REF22391))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED0 "slaed0_")
  ((ICOMPQ :FOREIGN-ADDRESS) (QSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (QSTORE :FOREIGN-ADDRESS) (LDQS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED0
    (ICOMPQ QSIZ N D E Q LDQ QSTORE LDQS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) QSTORE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF22392 ':INT32)
                              (QSIZ-REF22393 ':INT32)
                              (N-REF22394 ':INT32)
                              (LDQ-REF22398 ':INT32)
                              (LDQS-REF22400 ':INT32)
                              (INFO-REF22403 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF22392 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF22393 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22394 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22398 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF22400 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22403 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF22395 D)
                                            (E-REF22396 E)
                                            (Q-REF22397 Q)
                                            (QSTORE-REF22399 QSTORE)
                                            (WORK-REF22401 WORK)
                                            (IWORK-REF22402 IWORK))
      (%%SLAED0 ICOMPQ-REF22392 QSIZ-REF22393 N-REF22394 D-REF22395
       E-REF22396 Q-REF22397 LDQ-REF22398 QSTORE-REF22399 LDQS-REF22400
       WORK-REF22401 IWORK-REF22402 INFO-REF22403))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHBEVX_2STAGE "zhbevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHBEVX_2STAGE
    (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22407 ':INT32)
                              (KD-REF22408 ':INT32)
                              (LDAB-REF22410 ':INT32)
                              (LDQ-REF22412 ':INT32)
                              (VL-REF22413 ':DOUBLE)
                              (VU-REF22414 ':DOUBLE)
                              (IL-REF22415 ':INT32)
                              (IU-REF22416 ':INT32)
                              (ABSTOL-REF22417 ':DOUBLE)
                              (M-REF22418 ':INT32)
                              (LDZ-REF22421 ':INT32)
                              (LWORK-REF22423 ':INT32)
                              (INFO-REF22427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22407 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22408 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22410 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22412 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF22413 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF22414 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF22415 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF22416 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF22417 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22418 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22421 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22423 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22427 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22409 AB)
                                            (Q-REF22411 Q)
                                            (W-REF22419 W)
                                            (Z-REF22420 Z)
                                            (WORK-REF22422 WORK)
                                            (RWORK-REF22424 RWORK)
                                            (IWORK-REF22425 IWORK)
                                            (IFAIL-REF22426 IFAIL))
      (%%ZHBEVX_2STAGE JOBZ RANGE UPLO N-REF22407 KD-REF22408
       AB-REF22409 LDAB-REF22410 Q-REF22411 LDQ-REF22412 VL-REF22413
       VU-REF22414 IL-REF22415 IU-REF22416 ABSTOL-REF22417 M-REF22418
       W-REF22419 Z-REF22420 LDZ-REF22421 WORK-REF22422 LWORK-REF22423
       RWORK-REF22424 IWORK-REF22425 IFAIL-REF22426 INFO-REF22427))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGETRS "dgetrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22429 ':INT32)
                              (NRHS-REF22430 ':INT32)
                              (LDA-REF22432 ':INT32)
                              (LDB-REF22435 ':INT32)
                              (INFO-REF22436 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22430 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22432 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22435 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22436 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22431 A)
                                            (IPIV-REF22433 IPIV)
                                            (B-REF22434 B))
      (%%DGETRS TRANS N-REF22429 NRHS-REF22430 A-REF22431 LDA-REF22432
       IPIV-REF22433 B-REF22434 LDB-REF22435 INFO-REF22436))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGELS "dgels_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22438 ':INT32) (N-REF22439 ':INT32)
                              (NRHS-REF22440 ':INT32)
                              (LDA-REF22442 ':INT32)
                              (LDB-REF22444 ':INT32)
                              (LWORK-REF22446 ':INT32)
                              (INFO-REF22447 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22438 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22439 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22440 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22442 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22444 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22446 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22447 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22441 A)
                                            (B-REF22443 B)
                                            (WORK-REF22445 WORK))
      (%%DGELS TRANS M-REF22438 N-REF22439 NRHS-REF22440 A-REF22441
       LDA-REF22442 B-REF22443 LDB-REF22444 WORK-REF22445
       LWORK-REF22446 INFO-REF22447))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTBRFS "dtbrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTBRFS
    (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22451 ':INT32)
                              (KD-REF22452 ':INT32)
                              (NRHS-REF22453 ':INT32)
                              (LDAB-REF22455 ':INT32)
                              (LDB-REF22457 ':INT32)
                              (LDX-REF22459 ':INT32)
                              (INFO-REF22464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22451 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22452 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22453 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22455 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22457 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22459 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22454 AB)
                                            (B-REF22456 B)
                                            (X-REF22458 X)
                                            (FERR-REF22460 FERR)
                                            (BERR-REF22461 BERR)
                                            (WORK-REF22462 WORK)
                                            (IWORK-REF22463 IWORK))
      (%%DTBRFS UPLO TRANS DIAG N-REF22451 KD-REF22452 NRHS-REF22453
       AB-REF22454 LDAB-REF22455 B-REF22456 LDB-REF22457 X-REF22458
       LDX-REF22459 FERR-REF22460 BERR-REF22461 WORK-REF22462
       IWORK-REF22463 INFO-REF22464))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSTEGR "cstegr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSTEGR
    (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK LWORK
     IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEGR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22467 ':INT32)
                              (VL-REF22470 ':FLOAT)
                              (VU-REF22471 ':FLOAT)
                              (IL-REF22472 ':INT32)
                              (IU-REF22473 ':INT32)
                              (ABSTOL-REF22474 ':FLOAT)
                              (M-REF22475 ':INT32)
                              (LDZ-REF22478 ':INT32)
                              (LWORK-REF22481 ':INT32)
                              (LIWORK-REF22483 ':INT32)
                              (INFO-REF22484 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22467 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF22470 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF22471 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF22472 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF22473 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF22474 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22475 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22478 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22481 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF22483 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22484 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF22468 D)
                                            (E-REF22469 E)
                                            (W-REF22476 W)
                                            (Z-REF22477 Z)
                                            (ISUPPZ-REF22479 ISUPPZ)
                                            (WORK-REF22480 WORK)
                                            (IWORK-REF22482 IWORK))
      (%%CSTEGR JOBZ RANGE N-REF22467 D-REF22468 E-REF22469 VL-REF22470
       VU-REF22471 IL-REF22472 IU-REF22473 ABSTOL-REF22474 M-REF22475
       W-REF22476 Z-REF22477 LDZ-REF22478 ISUPPZ-REF22479 WORK-REF22480
       LWORK-REF22481 IWORK-REF22482 LIWORK-REF22483 INFO-REF22484))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRS_AA "zhetrs_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRS_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22486 ':INT32)
                              (NRHS-REF22487 ':INT32)
                              (LDA-REF22489 ':INT32)
                              (LDB-REF22492 ':INT32)
                              (LWORK-REF22494 ':INT32)
                              (INFO-REF22495 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22486 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22487 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22489 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22492 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22494 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22495 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22488 A)
                                            (IPIV-REF22490 IPIV)
                                            (B-REF22491 B)
                                            (WORK-REF22493 WORK))
      (%%ZHETRS_AA UPLO N-REF22486 NRHS-REF22487 A-REF22488
       LDA-REF22489 IPIV-REF22490 B-REF22491 LDB-REF22492 WORK-REF22493
       LWORK-REF22494 INFO-REF22495))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGES "sgges_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (VSL :FOREIGN-ADDRESS) (LDVSL :FOREIGN-ADDRESS)
   (VSR :FOREIGN-ADDRESS) (LDVSR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGES
    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI BETA
     VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGES)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF22499 ':INT32)
                              (N-REF22500 ':INT32)
                              (LDA-REF22502 ':INT32)
                              (LDB-REF22504 ':INT32)
                              (SDIM-REF22505 ':INT32)
                              (LDVSL-REF22510 ':INT32)
                              (LDVSR-REF22512 ':INT32)
                              (LWORK-REF22514 ':INT32)
                              (INFO-REF22516 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF22499 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22502 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22504 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF22505 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF22510 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF22512 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22514 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22516 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22501 A)
                                            (B-REF22503 B)
                                            (ALPHAR-REF22506 ALPHAR)
                                            (ALPHAI-REF22507 ALPHAI)
                                            (BETA-REF22508 BETA)
                                            (VSL-REF22509 VSL)
                                            (VSR-REF22511 VSR)
                                            (WORK-REF22513 WORK)
                                            (BWORK-REF22515 BWORK))
      (%%SGGES JOBVSL JOBVSR SORT SELCTG-REF22499 N-REF22500 A-REF22501
       LDA-REF22502 B-REF22503 LDB-REF22504 SDIM-REF22505
       ALPHAR-REF22506 ALPHAI-REF22507 BETA-REF22508 VSL-REF22509
       LDVSL-REF22510 VSR-REF22511 LDVSR-REF22512 WORK-REF22513
       LWORK-REF22514 BWORK-REF22515 INFO-REF22516))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMBR "sormbr_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMBR
    (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22520 ':INT32) (N-REF22521 ':INT32)
                              (K-REF22522 ':INT32)
                              (LDA-REF22524 ':INT32)
                              (LDC-REF22527 ':INT32)
                              (LWORK-REF22529 ':INT32)
                              (INFO-REF22530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22520 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22522 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22524 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22527 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22529 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22523 A)
                                            (TAU-REF22525 TAU)
                                            (C-REF22526 C)
                                            (WORK-REF22528 WORK))
      (%%SORMBR VECT SIDE TRANS M-REF22520 N-REF22521 K-REF22522
       A-REF22523 LDA-REF22524 TAU-REF22525 C-REF22526 LDC-REF22527
       WORK-REF22528 LWORK-REF22529 INFO-REF22530))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_GERCOND "sla_gercond_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (CMODE :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_GERCOND
    (TRANS N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERCOND)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22532 ':INT32)
                              (LDA-REF22534 ':INT32)
                              (LDAF-REF22536 ':INT32)
                              (CMODE-REF22538 ':INT32)
                              (INFO-REF22540 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22534 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22536 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF22538 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22540 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22533 A)
                                            (AF-REF22535 AF)
                                            (IPIV-REF22537 IPIV)
                                            (C-REF22539 C)
                                            (WORK-REF22541 WORK)
                                            (IWORK-REF22542 IWORK))
      (%%SLA_GERCOND TRANS N-REF22532 A-REF22533 LDA-REF22534
       AF-REF22535 LDAF-REF22536 IPIV-REF22537 CMODE-REF22538
       C-REF22539 INFO-REF22540 WORK-REF22541 IWORK-REF22542))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQR1 "dlaqr1_")
  ((N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (SR1 :FOREIGN-ADDRESS) (SI1 :FOREIGN-ADDRESS) (SR2 :FOREIGN-ADDRESS)
   (SI2 :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQR1 (N H LDH SR1 SI1 SR2 SI2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22543 ':INT32)
                              (LDH-REF22545 ':INT32)
                              (SR1-REF22546 ':DOUBLE)
                              (SI1-REF22547 ':DOUBLE)
                              (SR2-REF22548 ':DOUBLE)
                              (SI2-REF22549 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22543 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF22545 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF22546 :DOUBLE) SR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF22547 :DOUBLE) SI1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF22548 :DOUBLE) SR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF22549 :DOUBLE) SI2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF22544 H)
                                            (V-REF22550 V))
      (%%DLAQR1 N-REF22543 H-REF22544 LDH-REF22545 SR1-REF22546
       SI1-REF22547 SR2-REF22548 SI2-REF22549 V-REF22550))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLALN2 "dlaln2_")
  ((LTRANS :FOREIGN-ADDRESS) (NA :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (SMIN :FOREIGN-ADDRESS) (CA :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D1 :FOREIGN-ADDRESS)
   (D2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (XNORM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLALN2
    (LTRANS NA NW SMIN CA A LDA D1 D2 B LDB WR WI X LDX SCALE XNORM
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALN2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF22551 ':INT32)
                              (NA-REF22552 ':INT32)
                              (NW-REF22553 ':INT32)
                              (SMIN-REF22554 ':DOUBLE)
                              (CA-REF22555 ':DOUBLE)
                              (LDA-REF22557 ':INT32)
                              (D1-REF22558 ':DOUBLE)
                              (D2-REF22559 ':DOUBLE)
                              (LDB-REF22561 ':INT32)
                              (WR-REF22562 ':DOUBLE)
                              (WI-REF22563 ':DOUBLE)
                              (LDX-REF22565 ':INT32)
                              (SCALE-REF22566 ':DOUBLE)
                              (XNORM-REF22567 ':DOUBLE)
                              (INFO-REF22568 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF22551 :INT32) LTRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF22552 :INT32) NA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF22553 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF22554 :DOUBLE) SMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF22555 :DOUBLE) CA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF22558 :DOUBLE) D1)
    (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF22559 :DOUBLE) D2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22561 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF22562 :DOUBLE) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF22563 :DOUBLE) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22565 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22566 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF22567 :DOUBLE) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22568 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22556 A)
                                            (B-REF22560 B)
                                            (X-REF22564 X))
      (%%DLALN2 LTRANS-REF22551 NA-REF22552 NW-REF22553 SMIN-REF22554
       CA-REF22555 A-REF22556 LDA-REF22557 D1-REF22558 D2-REF22559
       B-REF22560 LDB-REF22561 WR-REF22562 WI-REF22563 X-REF22564
       LDX-REF22565 SCALE-REF22566 XNORM-REF22567 INFO-REF22568))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASDT "slasdt_")
  ((N :FOREIGN-ADDRESS) (LVL :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (INODE :FOREIGN-ADDRESS) (NDIML :FOREIGN-ADDRESS)
   (NDIMR :FOREIGN-ADDRESS) (MSUB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASDT (N LVL ND INODE NDIML NDIMR MSUB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LVL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    NDIML)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    NDIMR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22569 ':INT32)
                              (LVL-REF22570 ':INT32)
                              (ND-REF22571 ':INT32)
                              (MSUB-REF22575 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF22570 :INT32) LVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF22571 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF22575 :INT32) MSUB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF22572 INODE)
                                            (NDIML-REF22573 NDIML)
                                            (NDIMR-REF22574 NDIMR))
      (%%SLASDT N-REF22569 LVL-REF22570 ND-REF22571 INODE-REF22572
       NDIML-REF22573 NDIMR-REF22574 MSUB-REF22575))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASQ6 "dlasq6_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (DMIN :FOREIGN-ADDRESS)
   (DMIN1 :FOREIGN-ADDRESS) (DMIN2 :FOREIGN-ADDRESS)
   (DN :FOREIGN-ADDRESS) (DNM1 :FOREIGN-ADDRESS)
   (DNM2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASQ6 (I0 N0 Z PP DMIN DMIN1 DMIN2 DN DNM1 DNM2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF22576 ':INT32)
                              (N0-REF22577 ':INT32)
                              (PP-REF22579 ':INT32)
                              (DMIN-REF22580 ':DOUBLE)
                              (DMIN1-REF22581 ':DOUBLE)
                              (DMIN2-REF22582 ':DOUBLE)
                              (DN-REF22583 ':DOUBLE)
                              (DNM1-REF22584 ':DOUBLE)
                              (DNM2-REF22585 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF22576 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF22577 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF22579 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF22580 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF22581 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF22582 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF22583 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF22584 :DOUBLE) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF22585 :DOUBLE) DNM2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF22578 Z))
      (%%DLASQ6 I0-REF22576 N0-REF22577 Z-REF22578 PP-REF22579
       DMIN-REF22580 DMIN1-REF22581 DMIN2-REF22582 DN-REF22583
       DNM1-REF22584 DNM2-REF22585))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRD "dlarrd_")
  ((RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ORDER (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS) (GERS :FOREIGN-ADDRESS)
   (RELTOL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (E2 :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (NSPLIT :FOREIGN-ADDRESS) (ISPLIT :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (WL :FOREIGN-ADDRESS) (WU :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (INDEXW :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRD
    (RANGE ORDER N VL VU IL IU GERS RELTOL D E E2 PIVMIN NSPLIT ISPLIT
     M W WERR WL WU IBLOCK INDEXW WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GERS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WERR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22588 ':INT32)
                              (VL-REF22589 ':DOUBLE)
                              (VU-REF22590 ':DOUBLE)
                              (IL-REF22591 ':INT32)
                              (IU-REF22592 ':INT32)
                              (RELTOL-REF22594 ':DOUBLE)
                              (PIVMIN-REF22598 ':DOUBLE)
                              (NSPLIT-REF22599 ':INT32)
                              (M-REF22601 ':INT32)
                              (WL-REF22604 ':DOUBLE)
                              (WU-REF22605 ':DOUBLE)
                              (INFO-REF22610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22588 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF22589 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF22590 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF22591 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF22592 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF22594 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF22598 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF22599 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22601 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF22604 :DOUBLE) WL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF22605 :DOUBLE) WU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF22593 GERS)
                                            (D-REF22595 D)
                                            (E-REF22596 E)
                                            (E2-REF22597 E2)
                                            (ISPLIT-REF22600 ISPLIT)
                                            (W-REF22602 W)
                                            (WERR-REF22603 WERR)
                                            (IBLOCK-REF22606 IBLOCK)
                                            (INDEXW-REF22607 INDEXW)
                                            (WORK-REF22608 WORK)
                                            (IWORK-REF22609 IWORK))
      (%%DLARRD RANGE ORDER N-REF22588 VL-REF22589 VU-REF22590
       IL-REF22591 IU-REF22592 GERS-REF22593 RELTOL-REF22594 D-REF22595
       E-REF22596 E2-REF22597 PIVMIN-REF22598 NSPLIT-REF22599
       ISPLIT-REF22600 M-REF22601 W-REF22602 WERR-REF22603 WL-REF22604
       WU-REF22605 IBLOCK-REF22606 INDEXW-REF22607 WORK-REF22608
       IWORK-REF22609 INFO-REF22610))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTREVC3 "dtrevc3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTREVC3
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREVC3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22614 ':INT32)
                              (LDT-REF22616 ':INT32)
                              (LDVL-REF22618 ':INT32)
                              (LDVR-REF22620 ':INT32)
                              (MM-REF22621 ':INT32)
                              (M-REF22622 ':INT32)
                              (LWORK-REF22624 ':INT32)
                              (INFO-REF22625 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22614 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22616 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22618 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22620 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22621 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22622 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22624 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22625 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22613 SELECT)
                                            (T-REF22615 T)
                                            (VL-REF22617 VL)
                                            (VR-REF22619 VR)
                                            (WORK-REF22623 WORK))
      (%%DTREVC3 SIDE HOWMNY SELECT-REF22613 N-REF22614 T-REF22615
       LDT-REF22616 VL-REF22617 LDVL-REF22618 VR-REF22619 LDVR-REF22620
       MM-REF22621 M-REF22622 WORK-REF22623 LWORK-REF22624
       INFO-REF22625))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAED7 "zlaed7_")
  ((N :FOREIGN-ADDRESS) (CUTPNT :FOREIGN-ADDRESS)
   (QSIZ :FOREIGN-ADDRESS) (TLVLS :FOREIGN-ADDRESS)
   (CURLVL :FOREIGN-ADDRESS) (CURPBM :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (INDXQ :FOREIGN-ADDRESS)
   (QSTORE :FOREIGN-ADDRESS) (QPTR :FOREIGN-ADDRESS)
   (PRMPTR :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAED7
    (N CUTPNT QSIZ TLVLS CURLVL CURPBM D Q LDQ RHO INDXQ QSTORE QPTR
     PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED7)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) QSTORE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    QPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PRMPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22626 ':INT32)
                              (CUTPNT-REF22627 ':INT32)
                              (QSIZ-REF22628 ':INT32)
                              (TLVLS-REF22629 ':INT32)
                              (CURLVL-REF22630 ':INT32)
                              (CURPBM-REF22631 ':INT32)
                              (LDQ-REF22634 ':INT32)
                              (RHO-REF22635 ':DOUBLE)
                              (INFO-REF22647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF22627 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF22628 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF22629 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF22630 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF22631 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22634 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF22635 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22647 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF22632 D)
                                            (Q-REF22633 Q)
                                            (INDXQ-REF22636 INDXQ)
                                            (QSTORE-REF22637 QSTORE)
                                            (QPTR-REF22638 QPTR)
                                            (PRMPTR-REF22639 PRMPTR)
                                            (PERM-REF22640 PERM)
                                            (GIVPTR-REF22641 GIVPTR)
                                            (GIVCOL-REF22642 GIVCOL)
                                            (GIVNUM-REF22643 GIVNUM)
                                            (WORK-REF22644 WORK)
                                            (RWORK-REF22645 RWORK)
                                            (IWORK-REF22646 IWORK))
      (%%ZLAED7 N-REF22626 CUTPNT-REF22627 QSIZ-REF22628 TLVLS-REF22629
       CURLVL-REF22630 CURPBM-REF22631 D-REF22632 Q-REF22633
       LDQ-REF22634 RHO-REF22635 INDXQ-REF22636 QSTORE-REF22637
       QPTR-REF22638 PRMPTR-REF22639 PERM-REF22640 GIVPTR-REF22641
       GIVCOL-REF22642 GIVNUM-REF22643 WORK-REF22644 RWORK-REF22645
       IWORK-REF22646 INFO-REF22647))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGTSVX "dgtsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DLF :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (DUF :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGTSVX
    (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX RCOND
     FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DLF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DUF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22650 ':INT32)
                              (NRHS-REF22651 ':INT32)
                              (LDB-REF22661 ':INT32)
                              (LDX-REF22663 ':INT32)
                              (RCOND-REF22664 ':DOUBLE)
                              (INFO-REF22669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22651 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22661 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22663 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22664 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22669 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF22652 DL)
                                            (D-REF22653 D)
                                            (DU-REF22654 DU)
                                            (DLF-REF22655 DLF)
                                            (DF-REF22656 DF)
                                            (DUF-REF22657 DUF)
                                            (DU2-REF22658 DU2)
                                            (IPIV-REF22659 IPIV)
                                            (B-REF22660 B)
                                            (X-REF22662 X)
                                            (FERR-REF22665 FERR)
                                            (BERR-REF22666 BERR)
                                            (WORK-REF22667 WORK)
                                            (IWORK-REF22668 IWORK))
      (%%DGTSVX FACT TRANS N-REF22650 NRHS-REF22651 DL-REF22652
       D-REF22653 DU-REF22654 DLF-REF22655 DF-REF22656 DUF-REF22657
       DU2-REF22658 IPIV-REF22659 B-REF22660 LDB-REF22661 X-REF22662
       LDX-REF22663 RCOND-REF22664 FERR-REF22665 BERR-REF22666
       WORK-REF22667 IWORK-REF22668 INFO-REF22669))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GERPVGRW "zla_gerpvgrw_")
  ((N :FOREIGN-ADDRESS) (NCOLS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERPVGRW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22670 ':INT32)
                              (NCOLS-REF22671 ':INT32)
                              (LDA-REF22673 ':INT32)
                              (LDAF-REF22675 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF22671 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22673 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22675 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22672 A)
                                            (AF-REF22674 AF))
      (%%ZLA_GERPVGRW N-REF22670 NCOLS-REF22671 A-REF22672 LDA-REF22673
       AF-REF22674 LDAF-REF22675))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORBDB4 "dorbdb4_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (PHANTOM :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORBDB4
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 PHANTOM WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHANTOM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22676 ':INT32) (P-REF22677 ':INT32)
                              (Q-REF22678 ':INT32)
                              (LDX11-REF22680 ':INT32)
                              (LDX21-REF22682 ':INT32)
                              (LWORK-REF22690 ':INT32)
                              (INFO-REF22691 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22676 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22677 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22678 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22680 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22682 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22690 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22691 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22679 X11)
                                            (X21-REF22681 X21)
                                            (THETA-REF22683 THETA)
                                            (PHI-REF22684 PHI)
                                            (TAUP1-REF22685 TAUP1)
                                            (TAUP2-REF22686 TAUP2)
                                            (TAUQ1-REF22687 TAUQ1)
                                            (PHANTOM-REF22688 PHANTOM)
                                            (WORK-REF22689 WORK))
      (%%DORBDB4 M-REF22676 P-REF22677 Q-REF22678 X11-REF22679
       LDX11-REF22680 X21-REF22681 LDX21-REF22682 THETA-REF22683
       PHI-REF22684 TAUP1-REF22685 TAUP2-REF22686 TAUQ1-REF22687
       PHANTOM-REF22688 WORK-REF22689 LWORK-REF22690 INFO-REF22691))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOCON "zpocon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOCON (UPLO N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22693 ':INT32)
                              (LDA-REF22695 ':INT32)
                              (ANORM-REF22696 ':DOUBLE)
                              (RCOND-REF22697 ':DOUBLE)
                              (INFO-REF22700 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22693 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22695 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF22696 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22697 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22700 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22694 A)
                                            (WORK-REF22698 WORK)
                                            (RWORK-REF22699 RWORK))
      (%%ZPOCON UPLO N-REF22693 A-REF22694 LDA-REF22695 ANORM-REF22696
       RCOND-REF22697 WORK-REF22698 RWORK-REF22699 INFO-REF22700))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGETSLS "cgetsls_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGETSLS
    (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETSLS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22702 ':INT32) (N-REF22703 ':INT32)
                              (NRHS-REF22704 ':INT32)
                              (LDA-REF22706 ':INT32)
                              (LDB-REF22708 ':INT32)
                              (LWORK-REF22710 ':INT32)
                              (INFO-REF22711 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22702 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22703 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22704 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22706 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22708 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22710 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22711 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22705 A)
                                            (B-REF22707 B)
                                            (WORK-REF22709 WORK))
      (%%CGETSLS TRANS M-REF22702 N-REF22703 NRHS-REF22704 A-REF22705
       LDA-REF22706 B-REF22707 LDB-REF22708 WORK-REF22709
       LWORK-REF22710 INFO-REF22711))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRSYL "strsyl_")
  ((TRANA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ISGN :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRSYL
    (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF22714 ':INT32)
                              (M-REF22715 ':INT32) (N-REF22716 ':INT32)
                              (LDA-REF22718 ':INT32)
                              (LDB-REF22720 ':INT32)
                              (LDC-REF22722 ':INT32)
                              (SCALE-REF22723 ':FLOAT)
                              (INFO-REF22724 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF22714 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22715 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22718 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22720 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22722 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22723 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22724 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22717 A)
                                            (B-REF22719 B)
                                            (C-REF22721 C))
      (%%STRSYL TRANA TRANB ISGN-REF22714 M-REF22715 N-REF22716
       A-REF22717 LDA-REF22718 B-REF22719 LDB-REF22720 C-REF22721
       LDC-REF22722 SCALE-REF22723 INFO-REF22724))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPORFS "sporfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPORFS
    (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPORFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22726 ':INT32)
                              (NRHS-REF22727 ':INT32)
                              (LDA-REF22729 ':INT32)
                              (LDAF-REF22731 ':INT32)
                              (LDB-REF22733 ':INT32)
                              (LDX-REF22735 ':INT32)
                              (INFO-REF22740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22726 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22727 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22729 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22731 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22733 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22735 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22728 A)
                                            (AF-REF22730 AF)
                                            (B-REF22732 B)
                                            (X-REF22734 X)
                                            (FERR-REF22736 FERR)
                                            (BERR-REF22737 BERR)
                                            (WORK-REF22738 WORK)
                                            (IWORK-REF22739 IWORK))
      (%%SPORFS UPLO N-REF22726 NRHS-REF22727 A-REF22728 LDA-REF22729
       AF-REF22730 LDAF-REF22731 B-REF22732 LDB-REF22733 X-REF22734
       LDX-REF22735 FERR-REF22736 BERR-REF22737 WORK-REF22738
       IWORK-REF22739 INFO-REF22740))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEIN "sstein_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (IBLOCK :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEIN
    (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22741 ':INT32) (M-REF22744 ':INT32)
                              (LDZ-REF22749 ':INT32)
                              (INFO-REF22753 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22741 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22744 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22749 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22753 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF22742 D)
                                            (E-REF22743 E)
                                            (W-REF22745 W)
                                            (IBLOCK-REF22746 IBLOCK)
                                            (ISPLIT-REF22747 ISPLIT)
                                            (Z-REF22748 Z)
                                            (WORK-REF22750 WORK)
                                            (IWORK-REF22751 IWORK)
                                            (IFAIL-REF22752 IFAIL))
      (%%SSTEIN N-REF22741 D-REF22742 E-REF22743 M-REF22744 W-REF22745
       IBLOCK-REF22746 ISPLIT-REF22747 Z-REF22748 LDZ-REF22749
       WORK-REF22750 IWORK-REF22751 IFAIL-REF22752 INFO-REF22753))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPTTR "ctpttr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22755 ':INT32)
                              (LDA-REF22758 ':INT32)
                              (INFO-REF22759 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22755 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22758 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22759 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22756 AP)
                                            (A-REF22757 A))
      (%%CTPTTR UPLO N-REF22755 AP-REF22756 A-REF22757 LDA-REF22758
       INFO-REF22759))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLACPY "dlacpy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACPY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22761 ':INT32) (N-REF22762 ':INT32)
                              (LDA-REF22764 ':INT32)
                              (LDB-REF22766 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22761 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22762 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22764 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22766 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22763 A)
                                            (B-REF22765 B))
      (%%DLACPY UPLO M-REF22761 N-REF22762 A-REF22763 LDA-REF22764
       B-REF22765 LDB-REF22766))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLATDF "zlatdf_")
  ((IJOB :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (RHS :FOREIGN-ADDRESS)
   (RDSUM :FOREIGN-ADDRESS) (RDSCAL :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (JPIV :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATDF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RHS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22767 ':INT32)
                              (N-REF22768 ':INT32)
                              (LDZ-REF22770 ':INT32)
                              (RDSUM-REF22772 ':DOUBLE)
                              (RDSCAL-REF22773 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22767 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22770 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF22772 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF22773 :DOUBLE) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF22769 Z)
                                            (RHS-REF22771 RHS)
                                            (IPIV-REF22774 IPIV)
                                            (JPIV-REF22775 JPIV))
      (%%ZLATDF IJOB-REF22767 N-REF22768 Z-REF22769 LDZ-REF22770
       RHS-REF22771 RDSUM-REF22772 RDSCAL-REF22773 IPIV-REF22774
       JPIV-REF22775))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGRQF "sggrqf_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAUA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TAUB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGRQF
    (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGRQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22776 ':INT32) (P-REF22777 ':INT32)
                              (N-REF22778 ':INT32)
                              (LDA-REF22780 ':INT32)
                              (LDB-REF22783 ':INT32)
                              (LWORK-REF22786 ':INT32)
                              (INFO-REF22787 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22776 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22777 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22780 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22783 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22786 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22787 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22779 A)
                                            (TAUA-REF22781 TAUA)
                                            (B-REF22782 B)
                                            (TAUB-REF22784 TAUB)
                                            (WORK-REF22785 WORK))
      (%%SGGRQF M-REF22776 P-REF22777 N-REF22778 A-REF22779
       LDA-REF22780 TAUA-REF22781 B-REF22782 LDB-REF22783 TAUB-REF22784
       WORK-REF22785 LWORK-REF22786 INFO-REF22787))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPTEQR "zpteqr_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22789 ':INT32)
                              (LDZ-REF22793 ':INT32)
                              (INFO-REF22795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22789 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22793 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22795 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF22790 D)
                                            (E-REF22791 E)
                                            (Z-REF22792 Z)
                                            (WORK-REF22794 WORK))
      (%%ZPTEQR COMPZ N-REF22789 D-REF22790 E-REF22791 Z-REF22792
       LDZ-REF22793 WORK-REF22794 INFO-REF22795))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGSVJ0 "cgsvj0_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (EPS :FOREIGN-ADDRESS)
   (SFMIN :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (NSWEEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGSVJ0
    (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGSVJ0)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22797 ':INT32) (N-REF22798 ':INT32)
                              (LDA-REF22800 ':INT32)
                              (MV-REF22803 ':INT32)
                              (LDV-REF22805 ':INT32)
                              (EPS-REF22806 ':FLOAT)
                              (SFMIN-REF22807 ':FLOAT)
                              (TOL-REF22808 ':FLOAT)
                              (NSWEEP-REF22809 ':INT32)
                              (LWORK-REF22811 ':INT32)
                              (INFO-REF22812 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22797 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22798 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22800 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF22803 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22805 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF22806 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF22807 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF22808 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF22809 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22811 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22812 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22799 A)
                                            (D-REF22801 D)
                                            (SVA-REF22802 SVA)
                                            (V-REF22804 V)
                                            (WORK-REF22810 WORK))
      (%%CGSVJ0 JOBV M-REF22797 N-REF22798 A-REF22799 LDA-REF22800
       D-REF22801 SVA-REF22802 MV-REF22803 V-REF22804 LDV-REF22805
       EPS-REF22806 SFMIN-REF22807 TOL-REF22808 NSWEEP-REF22809
       WORK-REF22810 LWORK-REF22811 INFO-REF22812))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRF "zhetrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22814 ':INT32)
                              (LDA-REF22816 ':INT32)
                              (LWORK-REF22819 ':INT32)
                              (INFO-REF22820 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22814 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22816 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22819 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22820 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22815 A)
                                            (IPIV-REF22817 IPIV)
                                            (WORK-REF22818 WORK))
      (%%ZHETRF UPLO N-REF22814 A-REF22815 LDA-REF22816 IPIV-REF22817
       WORK-REF22818 LWORK-REF22819 INFO-REF22820))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPORFSX "cporfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPORFSX
    (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPORFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22823 ':INT32)
                              (NRHS-REF22824 ':INT32)
                              (LDA-REF22826 ':INT32)
                              (LDAF-REF22828 ':INT32)
                              (LDB-REF22831 ':INT32)
                              (LDX-REF22833 ':INT32)
                              (RCOND-REF22834 ':FLOAT)
                              (N_ERR_BNDS-REF22836 ':INT32)
                              (NPARAMS-REF22839 ':INT32)
                              (INFO-REF22843 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22823 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22824 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22826 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22828 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22831 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22833 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22834 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF22836 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF22839 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22843 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22825 A)
                                            (AF-REF22827 AF)
                                            (S-REF22829 S)
                                            (B-REF22830 B)
                                            (X-REF22832 X)
                                            (BERR-REF22835 BERR)
                                            (ERR_BNDS_NORM-REF22837
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF22838
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF22840 PARAMS)
                                            (WORK-REF22841 WORK)
                                            (RWORK-REF22842 RWORK))
      (%%CPORFSX UPLO EQUED N-REF22823 NRHS-REF22824 A-REF22825
       LDA-REF22826 AF-REF22827 LDAF-REF22828 S-REF22829 B-REF22830
       LDB-REF22831 X-REF22832 LDX-REF22833 RCOND-REF22834
       BERR-REF22835 N_ERR_BNDS-REF22836 ERR_BNDS_NORM-REF22837
       ERR_BNDS_COMP-REF22838 NPARAMS-REF22839 PARAMS-REF22840
       WORK-REF22841 RWORK-REF22842 INFO-REF22843))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPOSV "dsposv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (SWORK :FOREIGN-ADDRESS) (ITER :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPOSV
    (UPLO N NRHS A LDA B LDB X LDX WORK SWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPOSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22845 ':INT32)
                              (NRHS-REF22846 ':INT32)
                              (LDA-REF22848 ':INT32)
                              (LDB-REF22850 ':INT32)
                              (LDX-REF22852 ':INT32)
                              (ITER-REF22855 ':INT32)
                              (INFO-REF22856 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22845 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22846 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22848 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22850 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22852 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF22855 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22856 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22847 A)
                                            (B-REF22849 B)
                                            (X-REF22851 X)
                                            (WORK-REF22853 WORK)
                                            (SWORK-REF22854 SWORK))
      (%%DSPOSV UPLO N-REF22845 NRHS-REF22846 A-REF22847 LDA-REF22848
       B-REF22849 LDB-REF22850 X-REF22851 LDX-REF22852 WORK-REF22853
       SWORK-REF22854 ITER-REF22855 INFO-REF22856))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQR2 "cgeqr2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22857 ':INT32) (N-REF22858 ':INT32)
                              (LDA-REF22860 ':INT32)
                              (INFO-REF22863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22857 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22858 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22860 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22863 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22859 A)
                                            (TAU-REF22861 TAU)
                                            (WORK-REF22862 WORK))
      (%%CGEQR2 M-REF22857 N-REF22858 A-REF22859 LDA-REF22860
       TAU-REF22861 WORK-REF22862 INFO-REF22863))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASR "dlasr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (PIVOT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22867 ':INT32) (N-REF22868 ':INT32)
                              (LDA-REF22872 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22867 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22872 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF22869 C)
                                            (S-REF22870 S)
                                            (A-REF22871 A))
      (%%DLASR SIDE PIVOT DIRECT M-REF22867 N-REF22868 C-REF22869
       S-REF22870 A-REF22871 LDA-REF22872))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGETRI "cgetri_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22873 ':INT32)
                              (LDA-REF22875 ':INT32)
                              (LWORK-REF22878 ':INT32)
                              (INFO-REF22879 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22875 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22878 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22879 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22874 A)
                                            (IPIV-REF22876 IPIV)
                                            (WORK-REF22877 WORK))
      (%%CGETRI N-REF22873 A-REF22874 LDA-REF22875 IPIV-REF22876
       WORK-REF22877 LWORK-REF22878 INFO-REF22879))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGTR "dorgtr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22881 ':INT32)
                              (LDA-REF22883 ':INT32)
                              (LWORK-REF22886 ':INT32)
                              (INFO-REF22887 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22883 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22886 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22887 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22882 A)
                                            (TAU-REF22884 TAU)
                                            (WORK-REF22885 WORK))
      (%%DORGTR UPLO N-REF22881 A-REF22882 LDA-REF22883 TAU-REF22884
       WORK-REF22885 LWORK-REF22886 INFO-REF22887))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGES3 "cgges3_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VSL :FOREIGN-ADDRESS)
   (LDVSL :FOREIGN-ADDRESS) (VSR :FOREIGN-ADDRESS)
   (LDVSR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGES3
    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL LDVSL
     VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGES3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF22891 ':INT32)
                              (N-REF22892 ':INT32)
                              (LDA-REF22894 ':INT32)
                              (LDB-REF22896 ':INT32)
                              (SDIM-REF22897 ':INT32)
                              (LDVSL-REF22901 ':INT32)
                              (LDVSR-REF22903 ':INT32)
                              (LWORK-REF22905 ':INT32)
                              (INFO-REF22908 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF22891 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22892 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22894 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22896 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF22897 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF22901 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF22903 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22905 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22908 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22893 A)
                                            (B-REF22895 B)
                                            (ALPHA-REF22898 ALPHA)
                                            (BETA-REF22899 BETA)
                                            (VSL-REF22900 VSL)
                                            (VSR-REF22902 VSR)
                                            (WORK-REF22904 WORK)
                                            (RWORK-REF22906 RWORK)
                                            (BWORK-REF22907 BWORK))
      (%%CGGES3 JOBVSL JOBVSR SORT SELCTG-REF22891 N-REF22892
       A-REF22893 LDA-REF22894 B-REF22895 LDB-REF22896 SDIM-REF22897
       ALPHA-REF22898 BETA-REF22899 VSL-REF22900 LDVSL-REF22901
       VSR-REF22902 LDVSR-REF22903 WORK-REF22904 LWORK-REF22905
       RWORK-REF22906 BWORK-REF22907 INFO-REF22908))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPTRI "dsptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22910 ':INT32)
                              (INFO-REF22914 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22910 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22914 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22911 AP)
                                            (IPIV-REF22912 IPIV)
                                            (WORK-REF22913 WORK))
      (%%DSPTRI UPLO N-REF22910 AP-REF22911 IPIV-REF22912 WORK-REF22913
       INFO-REF22914))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBGST "ssbgst_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBGST
    (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGST)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22917 ':INT32)
                              (KA-REF22918 ':INT32)
                              (KB-REF22919 ':INT32)
                              (LDAB-REF22921 ':INT32)
                              (LDBB-REF22923 ':INT32)
                              (LDX-REF22925 ':INT32)
                              (INFO-REF22927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22917 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF22918 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF22919 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22921 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF22923 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22925 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22927 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22920 AB)
                                            (BB-REF22922 BB)
                                            (X-REF22924 X)
                                            (WORK-REF22926 WORK))
      (%%SSBGST VECT UPLO N-REF22917 KA-REF22918 KB-REF22919
       AB-REF22920 LDAB-REF22921 BB-REF22922 LDBB-REF22923 X-REF22924
       LDX-REF22925 WORK-REF22926 INFO-REF22927))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPTTS2 "zptts2_")
  ((IUPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPTTS2 (IUPLO N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IUPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF22928 ':INT32)
                              (N-REF22929 ':INT32)
                              (NRHS-REF22930 ':INT32)
                              (LDB-REF22934 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF22928 :INT32) IUPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22929 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22930 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22934 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF22931 D)
                                            (E-REF22932 E)
                                            (B-REF22933 B))
      (%%ZPTTS2 IUPLO-REF22928 N-REF22929 NRHS-REF22930 D-REF22931
       E-REF22932 B-REF22933 LDB-REF22934))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORBDB "sorbdb_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIGNS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X12 :FOREIGN-ADDRESS) (LDX12 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (X22 :FOREIGN-ADDRESS) (LDX22 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (TAUQ2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORBDB
    (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22 THETA
     PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X12)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22937 ':INT32) (P-REF22938 ':INT32)
                              (Q-REF22939 ':INT32)
                              (LDX11-REF22941 ':INT32)
                              (LDX12-REF22943 ':INT32)
                              (LDX21-REF22945 ':INT32)
                              (LDX22-REF22947 ':INT32)
                              (LWORK-REF22955 ':INT32)
                              (INFO-REF22956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22937 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22938 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22939 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22941 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22943 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22945 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22947 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22955 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22956 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22940 X11)
                                            (X12-REF22942 X12)
                                            (X21-REF22944 X21)
                                            (X22-REF22946 X22)
                                            (THETA-REF22948 THETA)
                                            (PHI-REF22949 PHI)
                                            (TAUP1-REF22950 TAUP1)
                                            (TAUP2-REF22951 TAUP2)
                                            (TAUQ1-REF22952 TAUQ1)
                                            (TAUQ2-REF22953 TAUQ2)
                                            (WORK-REF22954 WORK))
      (%%SORBDB TRANS SIGNS M-REF22937 P-REF22938 Q-REF22939
       X11-REF22940 LDX11-REF22941 X12-REF22942 LDX12-REF22943
       X21-REF22944 LDX21-REF22945 X22-REF22946 LDX22-REF22947
       THETA-REF22948 PHI-REF22949 TAUP1-REF22950 TAUP2-REF22951
       TAUQ1-REF22952 TAUQ2-REF22953 WORK-REF22954 LWORK-REF22955
       INFO-REF22956))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEBAL "cgebal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22958 ':INT32)
                              (LDA-REF22960 ':INT32)
                              (ILO-REF22961 ':INT32)
                              (IHI-REF22962 ':INT32)
                              (INFO-REF22964 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22958 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22960 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22961 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22962 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22964 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22959 A)
                                            (SCALE-REF22963 SCALE))
      (%%CGEBAL JOB N-REF22958 A-REF22959 LDA-REF22960 ILO-REF22961
       IHI-REF22962 SCALE-REF22963 INFO-REF22964))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYSV "zsysv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYSV
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22966 ':INT32)
                              (NRHS-REF22967 ':INT32)
                              (LDA-REF22969 ':INT32)
                              (LDB-REF22972 ':INT32)
                              (LWORK-REF22974 ':INT32)
                              (INFO-REF22975 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22966 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22967 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22969 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22972 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22974 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22975 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22968 A)
                                            (IPIV-REF22970 IPIV)
                                            (B-REF22971 B)
                                            (WORK-REF22973 WORK))
      (%%ZSYSV UPLO N-REF22966 NRHS-REF22967 A-REF22968 LDA-REF22969
       IPIV-REF22970 B-REF22971 LDB-REF22972 WORK-REF22973
       LWORK-REF22974 INFO-REF22975))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEHD2 "dgehd2_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22976 ':INT32)
                              (ILO-REF22977 ':INT32)
                              (IHI-REF22978 ':INT32)
                              (LDA-REF22980 ':INT32)
                              (INFO-REF22983 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22976 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22977 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22978 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22980 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22983 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22979 A)
                                            (TAU-REF22981 TAU)
                                            (WORK-REF22982 WORK))
      (%%DGEHD2 N-REF22976 ILO-REF22977 IHI-REF22978 A-REF22979
       LDA-REF22980 TAU-REF22981 WORK-REF22982 INFO-REF22983))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMHR "sormhr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMHR
    (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMHR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22986 ':INT32) (N-REF22987 ':INT32)
                              (ILO-REF22988 ':INT32)
                              (IHI-REF22989 ':INT32)
                              (LDA-REF22991 ':INT32)
                              (LDC-REF22994 ':INT32)
                              (LWORK-REF22996 ':INT32)
                              (INFO-REF22997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22986 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22987 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22988 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22989 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22991 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22994 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22996 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22990 A)
                                            (TAU-REF22992 TAU)
                                            (C-REF22993 C)
                                            (WORK-REF22995 WORK))
      (%%SORMHR SIDE TRANS M-REF22986 N-REF22987 ILO-REF22988
       IHI-REF22989 A-REF22990 LDA-REF22991 TAU-REF22992 C-REF22993
       LDC-REF22994 WORK-REF22995 LWORK-REF22996 INFO-REF22997))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNBDB "zunbdb_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIGNS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X12 :FOREIGN-ADDRESS) (LDX12 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (X22 :FOREIGN-ADDRESS) (LDX22 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (TAUQ2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNBDB
    (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22 THETA
     PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X12)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23000 ':INT32) (P-REF23001 ':INT32)
                              (Q-REF23002 ':INT32)
                              (LDX11-REF23004 ':INT32)
                              (LDX12-REF23006 ':INT32)
                              (LDX21-REF23008 ':INT32)
                              (LDX22-REF23010 ':INT32)
                              (LWORK-REF23018 ':INT32)
                              (INFO-REF23019 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23000 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF23001 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF23002 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF23004 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF23006 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF23008 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF23010 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23018 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23019 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF23003 X11)
                                            (X12-REF23005 X12)
                                            (X21-REF23007 X21)
                                            (X22-REF23009 X22)
                                            (THETA-REF23011 THETA)
                                            (PHI-REF23012 PHI)
                                            (TAUP1-REF23013 TAUP1)
                                            (TAUP2-REF23014 TAUP2)
                                            (TAUQ1-REF23015 TAUQ1)
                                            (TAUQ2-REF23016 TAUQ2)
                                            (WORK-REF23017 WORK))
      (%%ZUNBDB TRANS SIGNS M-REF23000 P-REF23001 Q-REF23002
       X11-REF23003 LDX11-REF23004 X12-REF23005 LDX12-REF23006
       X21-REF23007 LDX21-REF23008 X22-REF23009 LDX22-REF23010
       THETA-REF23011 PHI-REF23012 TAUP1-REF23013 TAUP2-REF23014
       TAUQ1-REF23015 TAUQ2-REF23016 WORK-REF23017 LWORK-REF23018
       INFO-REF23019))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPMQRT "ztpmqrt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPMQRT
    (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMQRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23022 ':INT32) (N-REF23023 ':INT32)
                              (K-REF23024 ':INT32) (L-REF23025 ':INT32)
                              (NB-REF23026 ':INT32)
                              (LDV-REF23028 ':INT32)
                              (LDT-REF23030 ':INT32)
                              (LDA-REF23032 ':INT32)
                              (LDB-REF23034 ':INT32)
                              (INFO-REF23036 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23022 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23024 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23025 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23026 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF23028 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23030 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23032 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23034 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23036 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF23027 V)
                                            (T-REF23029 T)
                                            (A-REF23031 A)
                                            (B-REF23033 B)
                                            (WORK-REF23035 WORK))
      (%%ZTPMQRT SIDE TRANS M-REF23022 N-REF23023 K-REF23024 L-REF23025
       NB-REF23026 V-REF23027 LDV-REF23028 T-REF23029 LDT-REF23030
       A-REF23031 LDA-REF23032 B-REF23033 LDB-REF23034 WORK-REF23035
       INFO-REF23036))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANHB "zlanhb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANHB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23039 ':INT32) (K-REF23040 ':INT32)
                              (LDAB-REF23042 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23039 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23040 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF23042 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF23041 AB)
                                            (WORK-REF23043 WORK))
      (%%ZLANHB NORM UPLO N-REF23039 K-REF23040 AB-REF23041
       LDAB-REF23042 WORK-REF23043))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SHGEQZ "shgeqz_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SHGEQZ
    (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHAR ALPHAI BETA Q LDQ Z
     LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHGEQZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23047 ':INT32)
                              (ILO-REF23048 ':INT32)
                              (IHI-REF23049 ':INT32)
                              (LDH-REF23051 ':INT32)
                              (LDT-REF23053 ':INT32)
                              (LDQ-REF23058 ':INT32)
                              (LDZ-REF23060 ':INT32)
                              (LWORK-REF23062 ':INT32)
                              (INFO-REF23063 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23047 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23048 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23049 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF23051 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23053 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23058 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF23060 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23062 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23063 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF23050 H)
                                            (T-REF23052 T)
                                            (ALPHAR-REF23054 ALPHAR)
                                            (ALPHAI-REF23055 ALPHAI)
                                            (BETA-REF23056 BETA)
                                            (Q-REF23057 Q)
                                            (Z-REF23059 Z)
                                            (WORK-REF23061 WORK))
      (%%SHGEQZ JOB COMPQ COMPZ N-REF23047 ILO-REF23048 IHI-REF23049
       H-REF23050 LDH-REF23051 T-REF23052 LDT-REF23053 ALPHAR-REF23054
       ALPHAI-REF23055 BETA-REF23056 Q-REF23057 LDQ-REF23058 Z-REF23059
       LDZ-REF23060 WORK-REF23061 LWORK-REF23062 INFO-REF23063))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_PORCOND "sla_porcond_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (CMODE :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_PORCOND
    (UPLO N A LDA AF LDAF CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORCOND)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23065 ':INT32)
                              (LDA-REF23067 ':INT32)
                              (LDAF-REF23069 ':INT32)
                              (CMODE-REF23070 ':INT32)
                              (INFO-REF23072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23065 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23067 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF23069 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF23070 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23066 A)
                                            (AF-REF23068 AF)
                                            (C-REF23071 C)
                                            (WORK-REF23073 WORK)
                                            (IWORK-REF23074 IWORK))
      (%%SLA_PORCOND UPLO N-REF23065 A-REF23066 LDA-REF23067
       AF-REF23068 LDAF-REF23069 CMODE-REF23070 C-REF23071
       INFO-REF23072 WORK-REF23073 IWORK-REF23074))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEBRD "sgebrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23075 ':INT32) (N-REF23076 ':INT32)
                              (LDA-REF23078 ':INT32)
                              (LWORK-REF23084 ':INT32)
                              (INFO-REF23085 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23075 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23076 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23078 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23084 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23085 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23077 A)
                                            (D-REF23079 D)
                                            (E-REF23080 E)
                                            (TAUQ-REF23081 TAUQ)
                                            (TAUP-REF23082 TAUP)
                                            (WORK-REF23083 WORK))
      (%%SGEBRD M-REF23075 N-REF23076 A-REF23077 LDA-REF23078
       D-REF23079 E-REF23080 TAUQ-REF23081 TAUP-REF23082 WORK-REF23083
       LWORK-REF23084 INFO-REF23085))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRD "ssytrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23087 ':INT32)
                              (LDA-REF23089 ':INT32)
                              (LWORK-REF23094 ':INT32)
                              (INFO-REF23095 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23087 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23089 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23094 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23095 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23088 A)
                                            (D-REF23090 D)
                                            (E-REF23091 E)
                                            (TAU-REF23092 TAU)
                                            (WORK-REF23093 WORK))
      (%%SSYTRD UPLO N-REF23087 A-REF23088 LDA-REF23089 D-REF23090
       E-REF23091 TAU-REF23092 WORK-REF23093 LWORK-REF23094
       INFO-REF23095))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAGTF "dlagtf_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LAMBDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (IN :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAGTF (N A LAMBDA B C TOL D IN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23096 ':INT32)
                              (LAMBDA-REF23098 ':DOUBLE)
                              (TOL-REF23101 ':DOUBLE)
                              (INFO-REF23104 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23096 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF23098 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF23101 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23104 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23097 A)
                                            (B-REF23099 B)
                                            (C-REF23100 C)
                                            (D-REF23102 D)
                                            (IN-REF23103 IN))
      (%%DLAGTF N-REF23096 A-REF23097 LAMBDA-REF23098 B-REF23099
       C-REF23100 TOL-REF23101 D-REF23102 IN-REF23103 INFO-REF23104))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPFTRF "cpftrf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23107 ':INT32)
                              (INFO-REF23109 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23107 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23109 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23108 A))
      (%%CPFTRF TRANSR UPLO N-REF23107 A-REF23108 INFO-REF23109))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPRFB "stprfb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPRFB
    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB WORK
     LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPRFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23114 ':INT32) (N-REF23115 ':INT32)
                              (K-REF23116 ':INT32) (L-REF23117 ':INT32)
                              (LDV-REF23119 ':INT32)
                              (LDT-REF23121 ':INT32)
                              (LDA-REF23123 ':INT32)
                              (LDB-REF23125 ':INT32)
                              (LDWORK-REF23127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23114 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23116 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23117 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF23119 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23121 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23123 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23125 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF23127 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF23118 V)
                                            (T-REF23120 T)
                                            (A-REF23122 A)
                                            (B-REF23124 B)
                                            (WORK-REF23126 WORK))
      (%%STPRFB SIDE TRANS DIRECT STOREV M-REF23114 N-REF23115
       K-REF23116 L-REF23117 V-REF23118 LDV-REF23119 T-REF23120
       LDT-REF23121 A-REF23122 LDA-REF23123 B-REF23124 LDB-REF23125
       WORK-REF23126 LDWORK-REF23127))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARF "slarf_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23129 ':INT32) (N-REF23130 ':INT32)
                              (INCV-REF23132 ':INT32)
                              (TAU-REF23133 ':FLOAT)
                              (LDC-REF23135 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23129 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23130 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF23132 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF23133 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23135 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF23131 V)
                                            (C-REF23134 C)
                                            (WORK-REF23136 WORK))
      (%%SLARF SIDE M-REF23129 N-REF23130 V-REF23131 INCV-REF23132
       TAU-REF23133 C-REF23134 LDC-REF23135 WORK-REF23136))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOTRS "spotrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23138 ':INT32)
                              (NRHS-REF23139 ':INT32)
                              (LDA-REF23141 ':INT32)
                              (LDB-REF23143 ':INT32)
                              (INFO-REF23144 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23138 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23139 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23141 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23143 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23144 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23140 A)
                                            (B-REF23142 B))
      (%%SPOTRS UPLO N-REF23138 NRHS-REF23139 A-REF23140 LDA-REF23141
       B-REF23142 LDB-REF23143 INFO-REF23144))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED0 "dlaed0_")
  ((ICOMPQ :FOREIGN-ADDRESS) (QSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (QSTORE :FOREIGN-ADDRESS) (LDQS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED0
    (ICOMPQ QSIZ N D E Q LDQ QSTORE LDQS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) QSTORE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF23145 ':INT32)
                              (QSIZ-REF23146 ':INT32)
                              (N-REF23147 ':INT32)
                              (LDQ-REF23151 ':INT32)
                              (LDQS-REF23153 ':INT32)
                              (INFO-REF23156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF23145 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF23146 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23151 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF23153 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23156 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF23148 D)
                                            (E-REF23149 E)
                                            (Q-REF23150 Q)
                                            (QSTORE-REF23152 QSTORE)
                                            (WORK-REF23154 WORK)
                                            (IWORK-REF23155 IWORK))
      (%%DLAED0 ICOMPQ-REF23145 QSIZ-REF23146 N-REF23147 D-REF23148
       E-REF23149 Q-REF23150 LDQ-REF23151 QSTORE-REF23152 LDQS-REF23153
       WORK-REF23154 IWORK-REF23155 INFO-REF23156))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CLA_GERFSX_EXTENDED "cla_gerfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS) (TRANS_TYPE :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERRS_N :FOREIGN-ADDRESS) (ERRS_C :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GERFSX_EXTENDED
    (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
     LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL RCOND ITHRESH
     RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERRS_N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERRS_C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF23157 ':INT32)
                              (TRANS_TYPE-REF23158 ':INT32)
                              (N-REF23159 ':INT32)
                              (NRHS-REF23160 ':INT32)
                              (LDA-REF23162 ':INT32)
                              (LDAF-REF23164 ':INT32)
                              (COLEQU-REF23166 ':INT32)
                              (LDB-REF23169 ':INT32)
                              (LDY-REF23171 ':INT32)
                              (N_NORMS-REF23173 ':INT32)
                              (RCOND-REF23180 ':FLOAT)
                              (ITHRESH-REF23181 ':INT32)
                              (RTHRESH-REF23182 ':FLOAT)
                              (DZ_UB-REF23183 ':FLOAT)
                              (IGNORE_CWISE-REF23184 ':INT32)
                              (INFO-REF23185 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF23157 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF23158 :INT32)
                      TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23159 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23160 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23162 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF23164 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF23166 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23169 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF23171 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF23173 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF23180 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF23181 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF23182 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF23183 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF23184 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23185 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23161 A)
                                            (AF-REF23163 AF)
                                            (IPIV-REF23165 IPIV)
                                            (C-REF23167 C)
                                            (B-REF23168 B)
                                            (Y-REF23170 Y)
                                            (BERR_OUT-REF23172
                                             BERR_OUT)
                                            (ERRS_N-REF23174 ERRS_N)
                                            (ERRS_C-REF23175 ERRS_C)
                                            (RES-REF23176 RES)
                                            (AYB-REF23177 AYB)
                                            (DY-REF23178 DY)
                                            (Y_TAIL-REF23179 Y_TAIL))
      (%%CLA_GERFSX_EXTENDED PREC_TYPE-REF23157 TRANS_TYPE-REF23158
       N-REF23159 NRHS-REF23160 A-REF23161 LDA-REF23162 AF-REF23163
       LDAF-REF23164 IPIV-REF23165 COLEQU-REF23166 C-REF23167
       B-REF23168 LDB-REF23169 Y-REF23170 LDY-REF23171
       BERR_OUT-REF23172 N_NORMS-REF23173 ERRS_N-REF23174
       ERRS_C-REF23175 RES-REF23176 AYB-REF23177 DY-REF23178
       Y_TAIL-REF23179 RCOND-REF23180 ITHRESH-REF23181 RTHRESH-REF23182
       DZ_UB-REF23183 IGNORE_CWISE-REF23184 INFO-REF23185))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPCON "ztpcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPCON (NORM UPLO DIAG N AP RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23189 ':INT32)
                              (RCOND-REF23191 ':DOUBLE)
                              (INFO-REF23194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23189 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF23191 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23194 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23190 AP)
                                            (WORK-REF23192 WORK)
                                            (RWORK-REF23193 RWORK))
      (%%ZTPCON NORM UPLO DIAG N-REF23189 AP-REF23190 RCOND-REF23191
       WORK-REF23192 RWORK-REF23193 INFO-REF23194))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQR2 "zlaqr2_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (SH :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS) (LDWV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQR2
    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V LDV NH
     T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    SH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF23195 ':INT32)
                              (WANTZ-REF23196 ':INT32)
                              (N-REF23197 ':INT32)
                              (KTOP-REF23198 ':INT32)
                              (KBOT-REF23199 ':INT32)
                              (NW-REF23200 ':INT32)
                              (LDH-REF23202 ':INT32)
                              (ILOZ-REF23203 ':INT32)
                              (IHIZ-REF23204 ':INT32)
                              (LDZ-REF23206 ':INT32)
                              (NS-REF23207 ':INT32)
                              (ND-REF23208 ':INT32)
                              (LDV-REF23211 ':INT32)
                              (NH-REF23212 ':INT32)
                              (LDT-REF23214 ':INT32)
                              (NV-REF23215 ':INT32)
                              (LDWV-REF23217 ':INT32)
                              (LWORK-REF23219 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF23195 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF23196 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23197 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF23198 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF23199 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF23200 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF23202 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF23203 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF23204 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF23206 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF23207 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF23208 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF23211 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF23212 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23214 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF23215 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF23217 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23219 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF23201 H)
                                            (Z-REF23205 Z)
                                            (SH-REF23209 SH)
                                            (V-REF23210 V)
                                            (T-REF23213 T)
                                            (WV-REF23216 WV)
                                            (WORK-REF23218 WORK))
      (%%ZLAQR2 WANTT-REF23195 WANTZ-REF23196 N-REF23197 KTOP-REF23198
       KBOT-REF23199 NW-REF23200 H-REF23201 LDH-REF23202 ILOZ-REF23203
       IHIZ-REF23204 Z-REF23205 LDZ-REF23206 NS-REF23207 ND-REF23208
       SH-REF23209 V-REF23210 LDV-REF23211 NH-REF23212 T-REF23213
       LDT-REF23214 NV-REF23215 WV-REF23216 LDWV-REF23217 WORK-REF23218
       LWORK-REF23219))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGHR "cunghr_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGHR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23220 ':INT32)
                              (ILO-REF23221 ':INT32)
                              (IHI-REF23222 ':INT32)
                              (LDA-REF23224 ':INT32)
                              (LWORK-REF23227 ':INT32)
                              (INFO-REF23228 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23220 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23221 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23222 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23224 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23227 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23228 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23223 A)
                                            (TAU-REF23225 TAU)
                                            (WORK-REF23226 WORK))
      (%%CUNGHR N-REF23220 ILO-REF23221 IHI-REF23222 A-REF23223
       LDA-REF23224 TAU-REF23225 WORK-REF23226 LWORK-REF23227
       INFO-REF23228))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPPRFS "cpprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPPRFS
    (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23230 ':INT32)
                              (NRHS-REF23231 ':INT32)
                              (LDB-REF23235 ':INT32)
                              (LDX-REF23237 ':INT32)
                              (INFO-REF23242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23230 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23231 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23235 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF23237 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23232 AP)
                                            (AFP-REF23233 AFP)
                                            (B-REF23234 B)
                                            (X-REF23236 X)
                                            (FERR-REF23238 FERR)
                                            (BERR-REF23239 BERR)
                                            (WORK-REF23240 WORK)
                                            (RWORK-REF23241 RWORK))
      (%%CPPRFS UPLO N-REF23230 NRHS-REF23231 AP-REF23232 AFP-REF23233
       B-REF23234 LDB-REF23235 X-REF23236 LDX-REF23237 FERR-REF23238
       BERR-REF23239 WORK-REF23240 RWORK-REF23241 INFO-REF23242))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHESV_ROOK "chesv_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHESV_ROOK
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23244 ':INT32)
                              (NRHS-REF23245 ':INT32)
                              (LDA-REF23247 ':INT32)
                              (LDB-REF23250 ':INT32)
                              (LWORK-REF23252 ':INT32)
                              (INFO-REF23253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23245 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23250 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23252 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23253 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23246 A)
                                            (IPIV-REF23248 IPIV)
                                            (B-REF23249 B)
                                            (WORK-REF23251 WORK))
      (%%CHESV_ROOK UPLO N-REF23244 NRHS-REF23245 A-REF23246
       LDA-REF23247 IPIV-REF23248 B-REF23249 LDB-REF23250 WORK-REF23251
       LWORK-REF23252 INFO-REF23253))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANTB "clantb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23257 ':INT32) (K-REF23258 ':INT32)
                              (LDAB-REF23260 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23257 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23258 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF23260 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF23259 AB)
                                            (WORK-REF23261 WORK))
      (%%CLANTB NORM UPLO DIAG N-REF23257 K-REF23258 AB-REF23259
       LDAB-REF23260 WORK-REF23261))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYSWAPR "ssyswapr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (I1 :FOREIGN-ADDRESS)
   (I2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSWAPR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23263 ':INT32)
                              (LDA-REF23265 ':INT32)
                              (I1-REF23266 ':INT32)
                              (I2-REF23267 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23263 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23265 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF23266 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF23267 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23264 A))
      (%%SSYSWAPR UPLO N-REF23263 A-REF23264 LDA-REF23265 I1-REF23266
       I2-REF23267))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_SYRCOND_C "cla_syrcond_c_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (CAPPLY :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_SYRCOND_C
    (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23269 ':INT32)
                              (LDA-REF23271 ':INT32)
                              (LDAF-REF23273 ':INT32)
                              (CAPPLY-REF23276 ':INT32)
                              (INFO-REF23277 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23269 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23271 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF23273 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF23276 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23277 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23270 A)
                                            (AF-REF23272 AF)
                                            (IPIV-REF23274 IPIV)
                                            (C-REF23275 C)
                                            (WORK-REF23278 WORK)
                                            (RWORK-REF23279 RWORK))
      (%%CLA_SYRCOND_C UPLO N-REF23269 A-REF23270 LDA-REF23271
       AF-REF23272 LDAF-REF23273 IPIV-REF23274 C-REF23275
       CAPPLY-REF23276 INFO-REF23277 WORK-REF23278 RWORK-REF23279))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGTRFS "zgtrfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DLF :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (DUF :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGTRFS
    (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR BERR
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DLF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DUF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23281 ':INT32)
                              (NRHS-REF23282 ':INT32)
                              (LDB-REF23292 ':INT32)
                              (LDX-REF23294 ':INT32)
                              (INFO-REF23299 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23281 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23282 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23292 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF23294 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23299 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF23283 DL)
                                            (D-REF23284 D)
                                            (DU-REF23285 DU)
                                            (DLF-REF23286 DLF)
                                            (DF-REF23287 DF)
                                            (DUF-REF23288 DUF)
                                            (DU2-REF23289 DU2)
                                            (IPIV-REF23290 IPIV)
                                            (B-REF23291 B)
                                            (X-REF23293 X)
                                            (FERR-REF23295 FERR)
                                            (BERR-REF23296 BERR)
                                            (WORK-REF23297 WORK)
                                            (RWORK-REF23298 RWORK))
      (%%ZGTRFS TRANS N-REF23281 NRHS-REF23282 DL-REF23283 D-REF23284
       DU-REF23285 DLF-REF23286 DF-REF23287 DUF-REF23288 DU2-REF23289
       IPIV-REF23290 B-REF23291 LDB-REF23292 X-REF23293 LDX-REF23294
       FERR-REF23295 BERR-REF23296 WORK-REF23297 RWORK-REF23298
       INFO-REF23299))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESVJ "cgesvj_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (CWORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESVJ
    (JOBA JOBU JOBV M N A LDA SVA MV V LDV CWORK LWORK RWORK LRWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVJ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23303 ':INT32) (N-REF23304 ':INT32)
                              (LDA-REF23306 ':INT32)
                              (MV-REF23308 ':INT32)
                              (LDV-REF23310 ':INT32)
                              (LWORK-REF23312 ':INT32)
                              (LRWORK-REF23314 ':INT32)
                              (INFO-REF23315 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23303 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23304 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23306 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF23308 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF23310 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23312 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF23314 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23315 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23305 A)
                                            (SVA-REF23307 SVA)
                                            (V-REF23309 V)
                                            (CWORK-REF23311 CWORK)
                                            (RWORK-REF23313 RWORK))
      (%%CGESVJ JOBA JOBU JOBV M-REF23303 N-REF23304 A-REF23305
       LDA-REF23306 SVA-REF23307 MV-REF23308 V-REF23309 LDV-REF23310
       CWORK-REF23311 LWORK-REF23312 RWORK-REF23313 LRWORK-REF23314
       INFO-REF23315))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMR2 "cunmr2_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMR2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23318 ':INT32) (N-REF23319 ':INT32)
                              (K-REF23320 ':INT32)
                              (LDA-REF23322 ':INT32)
                              (LDC-REF23325 ':INT32)
                              (INFO-REF23327 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23318 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23319 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23320 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23322 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23325 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23327 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23321 A)
                                            (TAU-REF23323 TAU)
                                            (C-REF23324 C)
                                            (WORK-REF23326 WORK))
      (%%CUNMR2 SIDE TRANS M-REF23318 N-REF23319 K-REF23320 A-REF23321
       LDA-REF23322 TAU-REF23323 C-REF23324 LDC-REF23325 WORK-REF23326
       INFO-REF23327))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEMQR "dgemqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (TSIZE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEMQR
    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23330 ':INT32) (N-REF23331 ':INT32)
                              (K-REF23332 ':INT32)
                              (LDA-REF23334 ':INT32)
                              (TSIZE-REF23336 ':INT32)
                              (LDC-REF23338 ':INT32)
                              (LWORK-REF23340 ':INT32)
                              (INFO-REF23341 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23330 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23331 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23332 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23334 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF23336 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23338 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23340 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23341 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23333 A)
                                            (T-REF23335 T)
                                            (C-REF23337 C)
                                            (WORK-REF23339 WORK))
      (%%DGEMQR SIDE TRANS M-REF23330 N-REF23331 K-REF23332 A-REF23333
       LDA-REF23334 T-REF23335 TSIZE-REF23336 C-REF23337 LDC-REF23338
       WORK-REF23339 LWORK-REF23340 INFO-REF23341))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAE2 "dlae2_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (RT1 :FOREIGN-ADDRESS) (RT2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAE2 (A B C RT1 RT2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAE2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF23342 ':DOUBLE)
                              (B-REF23343 ':DOUBLE)
                              (C-REF23344 ':DOUBLE)
                              (RT1-REF23345 ':DOUBLE)
                              (RT2-REF23346 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF23342 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF23343 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23344 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF23345 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF23346 :DOUBLE) RT2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAE2 A-REF23342 B-REF23343 C-REF23344 RT1-REF23345
       RT2-REF23346))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAGV2 "slagv2_")
  ((A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (ALPHAR :FOREIGN-ADDRESS)
   (ALPHAI :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (CSL :FOREIGN-ADDRESS) (SNL :FOREIGN-ADDRESS) (CSR :FOREIGN-ADDRESS)
   (SNR :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAGV2
    (A LDA B LDB ALPHAR ALPHAI BETA CSL SNL CSR SNR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNR))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF23348 ':INT32)
                              (LDB-REF23350 ':INT32)
                              (CSL-REF23354 ':FLOAT)
                              (SNL-REF23355 ':FLOAT)
                              (CSR-REF23356 ':FLOAT)
                              (SNR-REF23357 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23348 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23350 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF23354 :FLOAT) CSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF23355 :FLOAT) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF23356 :FLOAT) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF23357 :FLOAT) SNR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23347 A)
                                            (B-REF23349 B)
                                            (ALPHAR-REF23351 ALPHAR)
                                            (ALPHAI-REF23352 ALPHAI)
                                            (BETA-REF23353 BETA))
      (%%SLAGV2 A-REF23347 LDA-REF23348 B-REF23349 LDB-REF23350
       ALPHAR-REF23351 ALPHAI-REF23352 BETA-REF23353 CSL-REF23354
       SNL-REF23355 CSR-REF23356 SNR-REF23357))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEEVX "zgeevx_")
  ((BALANC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (ABNRM :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEEVX
    (BALANC JOBVL JOBVR SENSE N A LDA W VL LDVL VR LDVR ILO IHI SCALE
     ABNRM RCONDE RCONDV WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23362 ':INT32)
                              (LDA-REF23364 ':INT32)
                              (LDVL-REF23367 ':INT32)
                              (LDVR-REF23369 ':INT32)
                              (ILO-REF23370 ':INT32)
                              (IHI-REF23371 ':INT32)
                              (ABNRM-REF23373 ':DOUBLE)
                              (LWORK-REF23377 ':INT32)
                              (INFO-REF23379 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23362 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23364 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF23367 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF23369 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23370 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23371 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF23373 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23377 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23379 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23363 A)
                                            (W-REF23365 W)
                                            (VL-REF23366 VL)
                                            (VR-REF23368 VR)
                                            (SCALE-REF23372 SCALE)
                                            (RCONDE-REF23374 RCONDE)
                                            (RCONDV-REF23375 RCONDV)
                                            (WORK-REF23376 WORK)
                                            (RWORK-REF23378 RWORK))
      (%%ZGEEVX BALANC JOBVL JOBVR SENSE N-REF23362 A-REF23363
       LDA-REF23364 W-REF23365 VL-REF23366 LDVL-REF23367 VR-REF23368
       LDVR-REF23369 ILO-REF23370 IHI-REF23371 SCALE-REF23372
       ABNRM-REF23373 RCONDE-REF23374 RCONDV-REF23375 WORK-REF23376
       LWORK-REF23377 RWORK-REF23378 INFO-REF23379))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGESVDQ "zgesvdq_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NUMRANK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (CWORK :FOREIGN-ADDRESS)
   (LCWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGESVDQ
    (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK IWORK
     LIWORK CWORK LCWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVDQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    CWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23385 ':INT32) (N-REF23386 ':INT32)
                              (LDA-REF23388 ':INT32)
                              (LDU-REF23391 ':INT32)
                              (LDV-REF23393 ':INT32)
                              (NUMRANK-REF23394 ':INT32)
                              (LIWORK-REF23396 ':INT32)
                              (LCWORK-REF23398 ':INT32)
                              (LRWORK-REF23400 ':INT32)
                              (INFO-REF23401 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23385 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23386 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23388 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF23391 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF23393 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF23394 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF23396 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF23398 :INT32) LCWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF23400 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23401 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23387 A)
                                            (S-REF23389 S)
                                            (U-REF23390 U)
                                            (V-REF23392 V)
                                            (IWORK-REF23395 IWORK)
                                            (CWORK-REF23397 CWORK)
                                            (RWORK-REF23399 RWORK))
      (%%ZGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF23385 N-REF23386
       A-REF23387 LDA-REF23388 S-REF23389 U-REF23390 LDU-REF23391
       V-REF23392 LDV-REF23393 NUMRANK-REF23394 IWORK-REF23395
       LIWORK-REF23396 CWORK-REF23397 LCWORK-REF23398 RWORK-REF23399
       LRWORK-REF23400 INFO-REF23401))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLACON "clacon_")
  ((N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (EST :FOREIGN-ADDRESS) (KASE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLACON (N V X EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACON)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23402 ':INT32)
                              (EST-REF23405 ':FLOAT)
                              (KASE-REF23406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF23405 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF23406 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF23403 V)
                                            (X-REF23404 X))
      (%%CLACON N-REF23402 V-REF23403 X-REF23404 EST-REF23405
       KASE-REF23406))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARNV "slarnv_")
  ((IDIST :FOREIGN-ADDRESS) (ISEED :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARNV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISEED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF23407 ':INT32)
                              (N-REF23409 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF23407 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23409 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF23408 ISEED)
                                            (X-REF23410 X))
      (%%SLARNV IDIST-REF23407 ISEED-REF23408 N-REF23409 X-REF23410))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEVR "dstevr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEVR
    (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK LWORK
     IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23413 ':INT32)
                              (VL-REF23416 ':DOUBLE)
                              (VU-REF23417 ':DOUBLE)
                              (IL-REF23418 ':INT32)
                              (IU-REF23419 ':INT32)
                              (ABSTOL-REF23420 ':DOUBLE)
                              (M-REF23421 ':INT32)
                              (LDZ-REF23424 ':INT32)
                              (LWORK-REF23427 ':INT32)
                              (LIWORK-REF23429 ':INT32)
                              (INFO-REF23430 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF23416 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF23417 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF23418 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF23419 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF23420 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23421 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF23424 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23427 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF23429 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23430 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF23414 D)
                                            (E-REF23415 E)
                                            (W-REF23422 W)
                                            (Z-REF23423 Z)
                                            (ISUPPZ-REF23425 ISUPPZ)
                                            (WORK-REF23426 WORK)
                                            (IWORK-REF23428 IWORK))
      (%%DSTEVR JOBZ RANGE N-REF23413 D-REF23414 E-REF23415 VL-REF23416
       VU-REF23417 IL-REF23418 IU-REF23419 ABSTOL-REF23420 M-REF23421
       W-REF23422 Z-REF23423 LDZ-REF23424 ISUPPZ-REF23425 WORK-REF23426
       LWORK-REF23427 IWORK-REF23428 LIWORK-REF23429 INFO-REF23430))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DOPMTR "dopmtr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DOPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DOPMTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23434 ':INT32) (N-REF23435 ':INT32)
                              (LDC-REF23439 ':INT32)
                              (INFO-REF23441 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23434 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23435 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23439 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23441 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23436 AP)
                                            (TAU-REF23437 TAU)
                                            (C-REF23438 C)
                                            (WORK-REF23440 WORK))
      (%%DOPMTR SIDE UPLO TRANS M-REF23434 N-REF23435 AP-REF23436
       TAU-REF23437 C-REF23438 LDC-REF23439 WORK-REF23440
       INFO-REF23441))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPFTRS "cpftrs_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23444 ':INT32)
                              (NRHS-REF23445 ':INT32)
                              (LDB-REF23448 ':INT32)
                              (INFO-REF23449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23444 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23445 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23448 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23446 A)
                                            (B-REF23447 B))
      (%%CPFTRS TRANSR UPLO N-REF23444 NRHS-REF23445 A-REF23446
       B-REF23447 LDB-REF23448 INFO-REF23449))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMTR "dormtr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMTR
    (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23453 ':INT32) (N-REF23454 ':INT32)
                              (LDA-REF23456 ':INT32)
                              (LDC-REF23459 ':INT32)
                              (LWORK-REF23461 ':INT32)
                              (INFO-REF23462 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23453 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23456 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23459 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23461 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23462 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23455 A)
                                            (TAU-REF23457 TAU)
                                            (C-REF23458 C)
                                            (WORK-REF23460 WORK))
      (%%DORMTR SIDE UPLO TRANS M-REF23453 N-REF23454 A-REF23455
       LDA-REF23456 TAU-REF23457 C-REF23458 LDC-REF23459 WORK-REF23460
       LWORK-REF23461 INFO-REF23462))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED3 "dlaed3_")
  ((K :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (DLAMDA :FOREIGN-ADDRESS)
   (Q2 :FOREIGN-ADDRESS) (INDX :FOREIGN-ADDRESS)
   (CTOT :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED3
    (K N N1 D Q LDQ RHO DLAMDA Q2 INDX CTOT W S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    CTOT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF23463 ':INT32) (N-REF23464 ':INT32)
                              (N1-REF23465 ':INT32)
                              (LDQ-REF23468 ':INT32)
                              (RHO-REF23469 ':DOUBLE)
                              (INFO-REF23476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23463 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23464 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF23465 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23468 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF23469 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF23466 D)
                                            (Q-REF23467 Q)
                                            (DLAMDA-REF23470 DLAMDA)
                                            (Q2-REF23471 Q2)
                                            (INDX-REF23472 INDX)
                                            (CTOT-REF23473 CTOT)
                                            (W-REF23474 W)
                                            (S-REF23475 S))
      (%%DLAED3 K-REF23463 N-REF23464 N1-REF23465 D-REF23466 Q-REF23467
       LDQ-REF23468 RHO-REF23469 DLAMDA-REF23470 Q2-REF23471
       INDX-REF23472 CTOT-REF23473 W-REF23474 S-REF23475
       INFO-REF23476))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLATRZ "dlatrz_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23477 ':INT32) (N-REF23478 ':INT32)
                              (L-REF23479 ':INT32)
                              (LDA-REF23481 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23477 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23479 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23481 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23480 A)
                                            (TAU-REF23482 TAU)
                                            (WORK-REF23483 WORK))
      (%%DLATRZ M-REF23477 N-REF23478 L-REF23479 A-REF23480
       LDA-REF23481 TAU-REF23482 WORK-REF23483))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEHD2 "cgehd2_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEHD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23484 ':INT32)
                              (ILO-REF23485 ':INT32)
                              (IHI-REF23486 ':INT32)
                              (LDA-REF23488 ':INT32)
                              (INFO-REF23491 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23484 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23485 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23486 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23488 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23491 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23487 A)
                                            (TAU-REF23489 TAU)
                                            (WORK-REF23490 WORK))
      (%%CGEHD2 N-REF23484 ILO-REF23485 IHI-REF23486 A-REF23487
       LDA-REF23488 TAU-REF23489 WORK-REF23490 INFO-REF23491))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAMSWLQ "dlamswlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAMSWLQ
    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMSWLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23494 ':INT32) (N-REF23495 ':INT32)
                              (K-REF23496 ':INT32)
                              (MB-REF23497 ':INT32)
                              (NB-REF23498 ':INT32)
                              (LDA-REF23500 ':INT32)
                              (LDT-REF23502 ':INT32)
                              (LDC-REF23504 ':INT32)
                              (LWORK-REF23506 ':INT32)
                              (INFO-REF23507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23494 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23495 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23496 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF23497 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23498 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23500 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23502 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23504 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23506 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23499 A)
                                            (T-REF23501 T)
                                            (C-REF23503 C)
                                            (WORK-REF23505 WORK))
      (%%DLAMSWLQ SIDE TRANS M-REF23494 N-REF23495 K-REF23496
       MB-REF23497 NB-REF23498 A-REF23499 LDA-REF23500 T-REF23501
       LDT-REF23502 C-REF23503 LDC-REF23504 WORK-REF23505
       LWORK-REF23506 INFO-REF23507))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGEV3 "cggev3_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGEV3
    (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK LWORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEV3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23510 ':INT32)
                              (LDA-REF23512 ':INT32)
                              (LDB-REF23514 ':INT32)
                              (LDVL-REF23518 ':INT32)
                              (LDVR-REF23520 ':INT32)
                              (LWORK-REF23522 ':INT32)
                              (INFO-REF23524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23514 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF23518 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF23520 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23522 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23511 A)
                                            (B-REF23513 B)
                                            (ALPHA-REF23515 ALPHA)
                                            (BETA-REF23516 BETA)
                                            (VL-REF23517 VL)
                                            (VR-REF23519 VR)
                                            (WORK-REF23521 WORK)
                                            (RWORK-REF23523 RWORK))
      (%%CGGEV3 JOBVL JOBVR N-REF23510 A-REF23511 LDA-REF23512
       B-REF23513 LDB-REF23514 ALPHA-REF23515 BETA-REF23516 VL-REF23517
       LDVL-REF23518 VR-REF23519 LDVR-REF23520 WORK-REF23521
       LWORK-REF23522 RWORK-REF23523 INFO-REF23524))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGBAK "zggbak_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGBAK
    (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGBAK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23527 ':INT32)
                              (ILO-REF23528 ':INT32)
                              (IHI-REF23529 ':INT32)
                              (M-REF23532 ':INT32)
                              (LDV-REF23534 ':INT32)
                              (INFO-REF23535 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23528 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23529 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23532 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF23534 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23535 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF23530 LSCALE)
                                            (RSCALE-REF23531 RSCALE)
                                            (V-REF23533 V))
      (%%ZGGBAK JOB SIDE N-REF23527 ILO-REF23528 IHI-REF23529
       LSCALE-REF23530 RSCALE-REF23531 M-REF23532 V-REF23533
       LDV-REF23534 INFO-REF23535))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CHETRF_AA_2STAGE "chetrf_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TB :FOREIGN-ADDRESS)
   (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRF_AA_2STAGE
    (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23537 ':INT32)
                              (LDA-REF23539 ':INT32)
                              (LTB-REF23541 ':INT32)
                              (LWORK-REF23545 ':INT32)
                              (INFO-REF23546 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23539 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF23541 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23545 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23546 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23538 A)
                                            (TB-REF23540 TB)
                                            (IPIV-REF23542 IPIV)
                                            (IPIV2-REF23543 IPIV2)
                                            (WORK-REF23544 WORK))
      (%%CHETRF_AA_2STAGE UPLO N-REF23537 A-REF23538 LDA-REF23539
       TB-REF23540 LTB-REF23541 IPIV-REF23542 IPIV2-REF23543
       WORK-REF23544 LWORK-REF23545 INFO-REF23546))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRI_ROOK "ssytri_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23548 ':INT32)
                              (LDA-REF23550 ':INT32)
                              (INFO-REF23553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23548 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23550 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23549 A)
                                            (IPIV-REF23551 IPIV)
                                            (WORK-REF23552 WORK))
      (%%SSYTRI_ROOK UPLO N-REF23548 A-REF23549 LDA-REF23550
       IPIV-REF23551 WORK-REF23552 INFO-REF23553))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQR "dgeqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (TSIZE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23554 ':INT32) (N-REF23555 ':INT32)
                              (LDA-REF23557 ':INT32)
                              (TSIZE-REF23559 ':INT32)
                              (LWORK-REF23561 ':INT32)
                              (INFO-REF23562 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23554 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF23559 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23561 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23562 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23556 A)
                                            (T-REF23558 T)
                                            (WORK-REF23560 WORK))
      (%%DGEQR M-REF23554 N-REF23555 A-REF23556 LDA-REF23557 T-REF23558
       TSIZE-REF23559 WORK-REF23560 LWORK-REF23561 INFO-REF23562))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYR "zsyr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23564 ':INT32)
                              (ALPHA-REF23565
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF23567 ':INT32)
                              (LDA-REF23569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23564 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23565
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23567 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23569 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23566 X)
                                            (A-REF23568 A))
      (%%ZSYR UPLO N-REF23564 ALPHA-REF23565 X-REF23566 INCX-REF23567
       A-REF23568 LDA-REF23569))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQRFP "sgeqrfp_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRFP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23570 ':INT32) (N-REF23571 ':INT32)
                              (LDA-REF23573 ':INT32)
                              (LWORK-REF23576 ':INT32)
                              (INFO-REF23577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23570 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23571 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23573 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23576 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23572 A)
                                            (TAU-REF23574 TAU)
                                            (WORK-REF23575 WORK))
      (%%SGEQRFP M-REF23570 N-REF23571 A-REF23572 LDA-REF23573
       TAU-REF23574 WORK-REF23575 LWORK-REF23576 INFO-REF23577))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRE "slarre_")
  ((RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (E2 :FOREIGN-ADDRESS) (RTOL1 :FOREIGN-ADDRESS)
   (RTOL2 :FOREIGN-ADDRESS) (SPLTOL :FOREIGN-ADDRESS)
   (NSPLIT :FOREIGN-ADDRESS) (ISPLIT :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (WGAP :FOREIGN-ADDRESS) (IBLOCK :FOREIGN-ADDRESS)
   (INDEXW :FOREIGN-ADDRESS) (GERS :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRE
    (RANGE N VL VU IL IU D E E2 RTOL1 RTOL2 SPLTOL NSPLIT ISPLIT M W
     WERR WGAP IBLOCK INDEXW GERS PIVMIN WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPLTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GERS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23579 ':INT32)
                              (VL-REF23580 ':FLOAT)
                              (VU-REF23581 ':FLOAT)
                              (IL-REF23582 ':INT32)
                              (IU-REF23583 ':INT32)
                              (RTOL1-REF23587 ':FLOAT)
                              (RTOL2-REF23588 ':FLOAT)
                              (SPLTOL-REF23589 ':FLOAT)
                              (NSPLIT-REF23590 ':INT32)
                              (M-REF23592 ':INT32)
                              (PIVMIN-REF23599 ':FLOAT)
                              (INFO-REF23602 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF23580 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF23581 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF23582 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF23583 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF23587 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF23588 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF23589 :FLOAT) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF23590 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23592 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF23599 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23602 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF23584 D)
                                            (E-REF23585 E)
                                            (E2-REF23586 E2)
                                            (ISPLIT-REF23591 ISPLIT)
                                            (W-REF23593 W)
                                            (WERR-REF23594 WERR)
                                            (WGAP-REF23595 WGAP)
                                            (IBLOCK-REF23596 IBLOCK)
                                            (INDEXW-REF23597 INDEXW)
                                            (GERS-REF23598 GERS)
                                            (WORK-REF23600 WORK)
                                            (IWORK-REF23601 IWORK))
      (%%SLARRE RANGE N-REF23579 VL-REF23580 VU-REF23581 IL-REF23582
       IU-REF23583 D-REF23584 E-REF23585 E2-REF23586 RTOL1-REF23587
       RTOL2-REF23588 SPLTOL-REF23589 NSPLIT-REF23590 ISPLIT-REF23591
       M-REF23592 W-REF23593 WERR-REF23594 WGAP-REF23595
       IBLOCK-REF23596 INDEXW-REF23597 GERS-REF23598 PIVMIN-REF23599
       WORK-REF23600 IWORK-REF23601 INFO-REF23602))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTFSM "ctfsm_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTFSM
    (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFSM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23608 ':INT32) (N-REF23609 ':INT32)
                              (ALPHA-REF23610
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDB-REF23613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23608 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23609 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23610
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23613 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23611 A)
                                            (B-REF23612 B))
      (%%CTFSM TRANSR SIDE UPLO TRANS DIAG M-REF23608 N-REF23609
       ALPHA-REF23610 A-REF23611 B-REF23612 LDB-REF23613))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOTRI "zpotri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23615 ':INT32)
                              (LDA-REF23617 ':INT32)
                              (INFO-REF23618 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23615 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23617 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23618 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23616 A))
      (%%ZPOTRI UPLO N-REF23615 A-REF23616 LDA-REF23617
       INFO-REF23618))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPEV "zhpev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPEV (JOBZ UPLO N AP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23621 ':INT32)
                              (LDZ-REF23625 ':INT32)
                              (INFO-REF23628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF23625 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23628 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23622 AP)
                                            (W-REF23623 W)
                                            (Z-REF23624 Z)
                                            (WORK-REF23626 WORK)
                                            (RWORK-REF23627 RWORK))
      (%%ZHPEV JOBZ UPLO N-REF23621 AP-REF23622 W-REF23623 Z-REF23624
       LDZ-REF23625 WORK-REF23626 RWORK-REF23627 INFO-REF23628))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQR3 "slaqr3_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (SR :FOREIGN-ADDRESS) (SI :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (NH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS)
   (LDWV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQR3
    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR SI V LDV
     NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF23629 ':INT32)
                              (WANTZ-REF23630 ':INT32)
                              (N-REF23631 ':INT32)
                              (KTOP-REF23632 ':INT32)
                              (KBOT-REF23633 ':INT32)
                              (NW-REF23634 ':INT32)
                              (LDH-REF23636 ':INT32)
                              (ILOZ-REF23637 ':INT32)
                              (IHIZ-REF23638 ':INT32)
                              (LDZ-REF23640 ':INT32)
                              (NS-REF23641 ':INT32)
                              (ND-REF23642 ':INT32)
                              (LDV-REF23646 ':INT32)
                              (NH-REF23647 ':INT32)
                              (LDT-REF23649 ':INT32)
                              (NV-REF23650 ':INT32)
                              (LDWV-REF23652 ':INT32)
                              (LWORK-REF23654 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF23629 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF23630 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF23632 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF23633 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF23634 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF23636 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF23637 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF23638 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF23640 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF23641 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF23642 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF23646 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF23647 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23649 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF23650 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF23652 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23654 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF23635 H)
                                            (Z-REF23639 Z)
                                            (SR-REF23643 SR)
                                            (SI-REF23644 SI)
                                            (V-REF23645 V)
                                            (T-REF23648 T)
                                            (WV-REF23651 WV)
                                            (WORK-REF23653 WORK))
      (%%SLAQR3 WANTT-REF23629 WANTZ-REF23630 N-REF23631 KTOP-REF23632
       KBOT-REF23633 NW-REF23634 H-REF23635 LDH-REF23636 ILOZ-REF23637
       IHIZ-REF23638 Z-REF23639 LDZ-REF23640 NS-REF23641 ND-REF23642
       SR-REF23643 SI-REF23644 V-REF23645 LDV-REF23646 NH-REF23647
       T-REF23648 LDT-REF23649 NV-REF23650 WV-REF23651 LDWV-REF23652
       WORK-REF23653 LWORK-REF23654))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRS2 "dsytrs2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23656 ':INT32)
                              (NRHS-REF23657 ':INT32)
                              (LDA-REF23659 ':INT32)
                              (LDB-REF23662 ':INT32)
                              (INFO-REF23664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23656 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23657 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23659 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23662 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23658 A)
                                            (IPIV-REF23660 IPIV)
                                            (B-REF23661 B)
                                            (WORK-REF23663 WORK))
      (%%DSYTRS2 UPLO N-REF23656 NRHS-REF23657 A-REF23658 LDA-REF23659
       IPIV-REF23660 B-REF23661 LDB-REF23662 WORK-REF23663
       INFO-REF23664))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEEV "cheev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEEV (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23667 ':INT32)
                              (LDA-REF23669 ':INT32)
                              (LWORK-REF23672 ':INT32)
                              (INFO-REF23674 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23667 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23669 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23672 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23674 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23668 A)
                                            (W-REF23670 W)
                                            (WORK-REF23671 WORK)
                                            (RWORK-REF23673 RWORK))
      (%%CHEEV JOBZ UPLO N-REF23667 A-REF23668 LDA-REF23669 W-REF23670
       WORK-REF23671 LWORK-REF23672 RWORK-REF23673 INFO-REF23674))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_HERCOND_X "cla_hercond_x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_HERCOND_X
    (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23676 ':INT32)
                              (LDA-REF23678 ':INT32)
                              (LDAF-REF23680 ':INT32)
                              (INFO-REF23683 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23676 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23678 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF23680 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23683 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23677 A)
                                            (AF-REF23679 AF)
                                            (IPIV-REF23681 IPIV)
                                            (X-REF23682 X)
                                            (WORK-REF23684 WORK)
                                            (RWORK-REF23685 RWORK))
      (%%CLA_HERCOND_X UPLO N-REF23676 A-REF23677 LDA-REF23678
       AF-REF23679 LDAF-REF23680 IPIV-REF23681 X-REF23682 INFO-REF23683
       WORK-REF23684 RWORK-REF23685))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPORFSX "zporfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPORFSX
    (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPORFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23688 ':INT32)
                              (NRHS-REF23689 ':INT32)
                              (LDA-REF23691 ':INT32)
                              (LDAF-REF23693 ':INT32)
                              (LDB-REF23696 ':INT32)
                              (LDX-REF23698 ':INT32)
                              (RCOND-REF23699 ':DOUBLE)
                              (N_ERR_BNDS-REF23701 ':INT32)
                              (NPARAMS-REF23704 ':INT32)
                              (INFO-REF23708 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23688 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23689 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23691 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF23693 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23696 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF23698 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF23699 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF23701 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF23704 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23708 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23690 A)
                                            (AF-REF23692 AF)
                                            (S-REF23694 S)
                                            (B-REF23695 B)
                                            (X-REF23697 X)
                                            (BERR-REF23700 BERR)
                                            (ERR_BNDS_NORM-REF23702
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF23703
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF23705 PARAMS)
                                            (WORK-REF23706 WORK)
                                            (RWORK-REF23707 RWORK))
      (%%ZPORFSX UPLO EQUED N-REF23688 NRHS-REF23689 A-REF23690
       LDA-REF23691 AF-REF23692 LDAF-REF23693 S-REF23694 B-REF23695
       LDB-REF23696 X-REF23697 LDX-REF23698 RCOND-REF23699
       BERR-REF23700 N_ERR_BNDS-REF23701 ERR_BNDS_NORM-REF23702
       ERR_BNDS_COMP-REF23703 NPARAMS-REF23704 PARAMS-REF23705
       WORK-REF23706 RWORK-REF23707 INFO-REF23708))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STZRZF "stzrzf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STZRZF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23709 ':INT32) (N-REF23710 ':INT32)
                              (LDA-REF23712 ':INT32)
                              (LWORK-REF23715 ':INT32)
                              (INFO-REF23716 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23709 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23710 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23712 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23715 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23716 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23711 A)
                                            (TAU-REF23713 TAU)
                                            (WORK-REF23714 WORK))
      (%%STZRZF M-REF23709 N-REF23710 A-REF23711 LDA-REF23712
       TAU-REF23713 WORK-REF23714 LWORK-REF23715 INFO-REF23716))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGELSS "dgelss_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGELSS
    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23717 ':INT32) (N-REF23718 ':INT32)
                              (NRHS-REF23719 ':INT32)
                              (LDA-REF23721 ':INT32)
                              (LDB-REF23723 ':INT32)
                              (RCOND-REF23725 ':DOUBLE)
                              (RANK-REF23726 ':INT32)
                              (LWORK-REF23728 ':INT32)
                              (INFO-REF23729 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23717 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23718 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23719 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23721 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23723 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF23725 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF23726 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23728 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23729 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23720 A)
                                            (B-REF23722 B)
                                            (S-REF23724 S)
                                            (WORK-REF23727 WORK))
      (%%DGELSS M-REF23717 N-REF23718 NRHS-REF23719 A-REF23720
       LDA-REF23721 B-REF23722 LDB-REF23723 S-REF23724 RCOND-REF23725
       RANK-REF23726 WORK-REF23727 LWORK-REF23728 INFO-REF23729))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYRFS "ssyrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYRFS
    (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23731 ':INT32)
                              (NRHS-REF23732 ':INT32)
                              (LDA-REF23734 ':INT32)
                              (LDAF-REF23736 ':INT32)
                              (LDB-REF23739 ':INT32)
                              (LDX-REF23741 ':INT32)
                              (INFO-REF23746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23732 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23734 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF23736 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23739 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF23741 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23746 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23733 A)
                                            (AF-REF23735 AF)
                                            (IPIV-REF23737 IPIV)
                                            (B-REF23738 B)
                                            (X-REF23740 X)
                                            (FERR-REF23742 FERR)
                                            (BERR-REF23743 BERR)
                                            (WORK-REF23744 WORK)
                                            (IWORK-REF23745 IWORK))
      (%%SSYRFS UPLO N-REF23731 NRHS-REF23732 A-REF23733 LDA-REF23734
       AF-REF23735 LDAF-REF23736 IPIV-REF23737 B-REF23738 LDB-REF23739
       X-REF23740 LDX-REF23741 FERR-REF23742 BERR-REF23743
       WORK-REF23744 IWORK-REF23745 INFO-REF23746))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESV "dgesv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23747 ':INT32)
                              (NRHS-REF23748 ':INT32)
                              (LDA-REF23750 ':INT32)
                              (LDB-REF23753 ':INT32)
                              (INFO-REF23754 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23747 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23748 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23750 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23753 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23754 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23749 A)
                                            (IPIV-REF23751 IPIV)
                                            (B-REF23752 B))
      (%%DGESV N-REF23747 NRHS-REF23748 A-REF23749 LDA-REF23750
       IPIV-REF23751 B-REF23752 LDB-REF23753 INFO-REF23754))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYSVXX "dsysvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYSVXX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23757 ':INT32)
                              (NRHS-REF23758 ':INT32)
                              (LDA-REF23760 ':INT32)
                              (LDAF-REF23762 ':INT32)
                              (LDB-REF23767 ':INT32)
                              (LDX-REF23769 ':INT32)
                              (RCOND-REF23770 ':DOUBLE)
                              (RPVGRW-REF23771 ':DOUBLE)
                              (N_ERR_BNDS-REF23773 ':INT32)
                              (NPARAMS-REF23776 ':INT32)
                              (INFO-REF23780 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23757 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23758 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23760 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF23762 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23767 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF23769 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF23770 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF23771 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF23773 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF23776 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23780 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23759 A)
                                            (AF-REF23761 AF)
                                            (IPIV-REF23763 IPIV)
                                            (S-REF23765 S)
                                            (B-REF23766 B)
                                            (X-REF23768 X)
                                            (BERR-REF23772 BERR)
                                            (ERR_BNDS_NORM-REF23774
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF23775
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF23777 PARAMS)
                                            (WORK-REF23778 WORK)
                                            (IWORK-REF23779 IWORK))
      (%%DSYSVXX FACT UPLO N-REF23757 NRHS-REF23758 A-REF23759
       LDA-REF23760 AF-REF23761 LDAF-REF23762 IPIV-REF23763 EQUED
       S-REF23765 B-REF23766 LDB-REF23767 X-REF23768 LDX-REF23769
       RCOND-REF23770 RPVGRW-REF23771 BERR-REF23772 N_ERR_BNDS-REF23773
       ERR_BNDS_NORM-REF23774 ERR_BNDS_COMP-REF23775 NPARAMS-REF23776
       PARAMS-REF23777 WORK-REF23778 IWORK-REF23779 INFO-REF23780))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNBDB4 "cunbdb4_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (PHANTOM :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNBDB4
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 PHANTOM WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    PHANTOM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23781 ':INT32) (P-REF23782 ':INT32)
                              (Q-REF23783 ':INT32)
                              (LDX11-REF23785 ':INT32)
                              (LDX21-REF23787 ':INT32)
                              (LWORK-REF23795 ':INT32)
                              (INFO-REF23796 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23781 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF23782 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF23783 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF23785 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF23787 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23795 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23796 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF23784 X11)
                                            (X21-REF23786 X21)
                                            (THETA-REF23788 THETA)
                                            (PHI-REF23789 PHI)
                                            (TAUP1-REF23790 TAUP1)
                                            (TAUP2-REF23791 TAUP2)
                                            (TAUQ1-REF23792 TAUQ1)
                                            (PHANTOM-REF23793 PHANTOM)
                                            (WORK-REF23794 WORK))
      (%%CUNBDB4 M-REF23781 P-REF23782 Q-REF23783 X11-REF23784
       LDX11-REF23785 X21-REF23786 LDX21-REF23787 THETA-REF23788
       PHI-REF23789 TAUP1-REF23790 TAUP2-REF23791 TAUQ1-REF23792
       PHANTOM-REF23793 WORK-REF23794 LWORK-REF23795 INFO-REF23796))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTFSM "ztfsm_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTFSM
    (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFSM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23802 ':INT32) (N-REF23803 ':INT32)
                              (ALPHA-REF23804
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDB-REF23807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23802 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23803 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23804
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23807 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23805 A)
                                            (B-REF23806 B))
      (%%ZTFSM TRANSR SIDE UPLO TRANS DIAG M-REF23802 N-REF23803
       ALPHA-REF23804 A-REF23805 B-REF23806 LDB-REF23807))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGETSLS "sgetsls_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGETSLS
    (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETSLS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23809 ':INT32) (N-REF23810 ':INT32)
                              (NRHS-REF23811 ':INT32)
                              (LDA-REF23813 ':INT32)
                              (LDB-REF23815 ':INT32)
                              (LWORK-REF23817 ':INT32)
                              (INFO-REF23818 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23809 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23810 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23811 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23813 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23815 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23817 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23818 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23812 A)
                                            (B-REF23814 B)
                                            (WORK-REF23816 WORK))
      (%%SGETSLS TRANS M-REF23809 N-REF23810 NRHS-REF23811 A-REF23812
       LDA-REF23813 B-REF23814 LDB-REF23815 WORK-REF23816
       LWORK-REF23817 INFO-REF23818))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUPGTR "zupgtr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUPGTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23820 ':INT32)
                              (LDQ-REF23824 ':INT32)
                              (INFO-REF23826 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23820 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23824 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23826 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23821 AP)
                                            (TAU-REF23822 TAU)
                                            (Q-REF23823 Q)
                                            (WORK-REF23825 WORK))
      (%%ZUPGTR UPLO N-REF23820 AP-REF23821 TAU-REF23822 Q-REF23823
       LDQ-REF23824 WORK-REF23825 INFO-REF23826))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAEIN "claein_")
  ((RIGHTV :FOREIGN-ADDRESS) (NOINIT :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (EPS3 :FOREIGN-ADDRESS) (SMLNUM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAEIN
    (RIGHTV NOINIT N H LDH W V B LDB RWORK EPS3 SMLNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAEIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS3)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF23827 ':INT32)
                              (NOINIT-REF23828 ':INT32)
                              (N-REF23829 ':INT32)
                              (LDH-REF23831 ':INT32)
                              (W-REF23832
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDB-REF23835 ':INT32)
                              (EPS3-REF23837 ':FLOAT)
                              (SMLNUM-REF23838 ':FLOAT)
                              (INFO-REF23839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF23827 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF23828 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23829 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF23831 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              W-REF23832
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART W)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23835 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF23837 :FLOAT) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF23838 :FLOAT) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23839 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF23830 H)
                                            (V-REF23833 V)
                                            (B-REF23834 B)
                                            (RWORK-REF23836 RWORK))
      (%%CLAEIN RIGHTV-REF23827 NOINIT-REF23828 N-REF23829 H-REF23830
       LDH-REF23831 W-REF23832 V-REF23833 B-REF23834 LDB-REF23835
       RWORK-REF23836 EPS3-REF23837 SMLNUM-REF23838 INFO-REF23839))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQRT2 "zgeqrt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23840 ':INT32) (N-REF23841 ':INT32)
                              (LDA-REF23843 ':INT32)
                              (LDT-REF23845 ':INT32)
                              (INFO-REF23846 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23840 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23843 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23845 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23846 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23842 A)
                                            (T-REF23844 T))
      (%%ZGEQRT2 M-REF23840 N-REF23841 A-REF23842 LDA-REF23843
       T-REF23844 LDT-REF23845 INFO-REF23846))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPQRT "dtpqrt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPQRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23847 ':INT32) (N-REF23848 ':INT32)
                              (L-REF23849 ':INT32)
                              (NB-REF23850 ':INT32)
                              (LDA-REF23852 ':INT32)
                              (LDB-REF23854 ':INT32)
                              (LDT-REF23856 ':INT32)
                              (INFO-REF23858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23847 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23848 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23849 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23850 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23852 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23854 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23856 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23858 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23851 A)
                                            (B-REF23853 B)
                                            (T-REF23855 T)
                                            (WORK-REF23857 WORK))
      (%%DTPQRT M-REF23847 N-REF23848 L-REF23849 NB-REF23850 A-REF23851
       LDA-REF23852 B-REF23853 LDB-REF23854 T-REF23855 LDT-REF23856
       WORK-REF23857 INFO-REF23858))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGTSV "cgtsv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23859 ':INT32)
                              (NRHS-REF23860 ':INT32)
                              (LDB-REF23865 ':INT32)
                              (INFO-REF23866 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23860 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23865 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23866 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF23861 DL)
                                            (D-REF23862 D)
                                            (DU-REF23863 DU)
                                            (B-REF23864 B))
      (%%CGTSV N-REF23859 NRHS-REF23860 DL-REF23861 D-REF23862
       DU-REF23863 B-REF23864 LDB-REF23865 INFO-REF23866))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELSS "sgelss_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELSS
    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23867 ':INT32) (N-REF23868 ':INT32)
                              (NRHS-REF23869 ':INT32)
                              (LDA-REF23871 ':INT32)
                              (LDB-REF23873 ':INT32)
                              (RCOND-REF23875 ':FLOAT)
                              (RANK-REF23876 ':INT32)
                              (LWORK-REF23878 ':INT32)
                              (INFO-REF23879 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23867 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23869 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23871 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23873 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF23875 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF23876 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23878 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23879 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23870 A)
                                            (B-REF23872 B)
                                            (S-REF23874 S)
                                            (WORK-REF23877 WORK))
      (%%SGELSS M-REF23867 N-REF23868 NRHS-REF23869 A-REF23870
       LDA-REF23871 B-REF23872 LDB-REF23873 S-REF23874 RCOND-REF23875
       RANK-REF23876 WORK-REF23877 LWORK-REF23878 INFO-REF23879))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEQR "dsteqr_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23881 ':INT32)
                              (LDZ-REF23885 ':INT32)
                              (INFO-REF23887 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF23885 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23887 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF23882 D)
                                            (E-REF23883 E)
                                            (Z-REF23884 Z)
                                            (WORK-REF23886 WORK))
      (%%DSTEQR COMPZ N-REF23881 D-REF23882 E-REF23883 Z-REF23884
       LDZ-REF23885 WORK-REF23886 INFO-REF23887))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGETRI "sgetri_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23888 ':INT32)
                              (LDA-REF23890 ':INT32)
                              (LWORK-REF23893 ':INT32)
                              (INFO-REF23894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23888 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23890 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23893 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23889 A)
                                            (IPIV-REF23891 IPIV)
                                            (WORK-REF23892 WORK))
      (%%SGETRI N-REF23888 A-REF23889 LDA-REF23890 IPIV-REF23891
       WORK-REF23892 LWORK-REF23893 INFO-REF23894))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGL2 "cungl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23895 ':INT32) (N-REF23896 ':INT32)
                              (K-REF23897 ':INT32)
                              (LDA-REF23899 ':INT32)
                              (INFO-REF23902 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23895 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23896 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23897 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23899 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23902 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23898 A)
                                            (TAU-REF23900 TAU)
                                            (WORK-REF23901 WORK))
      (%%CUNGL2 M-REF23895 N-REF23896 K-REF23897 A-REF23898
       LDA-REF23899 TAU-REF23900 WORK-REF23901 INFO-REF23902))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRF_ROOK "zsytrf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23904 ':INT32)
                              (LDA-REF23906 ':INT32)
                              (LWORK-REF23909 ':INT32)
                              (INFO-REF23910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23904 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23906 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23909 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23905 A)
                                            (IPIV-REF23907 IPIV)
                                            (WORK-REF23908 WORK))
      (%%ZSYTRF_ROOK UPLO N-REF23904 A-REF23905 LDA-REF23906
       IPIV-REF23907 WORK-REF23908 LWORK-REF23909 INFO-REF23910))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARZ "dlarz_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (INCV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23912 ':INT32) (N-REF23913 ':INT32)
                              (L-REF23914 ':INT32)
                              (INCV-REF23916 ':INT32)
                              (TAU-REF23917 ':DOUBLE)
                              (LDC-REF23919 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23912 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23913 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23914 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF23916 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF23917 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23919 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF23915 V)
                                            (C-REF23918 C)
                                            (WORK-REF23920 WORK))
      (%%DLARZ SIDE M-REF23912 N-REF23913 L-REF23914 V-REF23915
       INCV-REF23916 TAU-REF23917 C-REF23918 LDC-REF23919
       WORK-REF23920))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEVR "dsyevr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEVR
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
     LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23924 ':INT32)
                              (LDA-REF23926 ':INT32)
                              (VL-REF23927 ':DOUBLE)
                              (VU-REF23928 ':DOUBLE)
                              (IL-REF23929 ':INT32)
                              (IU-REF23930 ':INT32)
                              (ABSTOL-REF23931 ':DOUBLE)
                              (M-REF23932 ':INT32)
                              (LDZ-REF23935 ':INT32)
                              (LWORK-REF23938 ':INT32)
                              (LIWORK-REF23940 ':INT32)
                              (INFO-REF23941 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23924 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23926 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF23927 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF23928 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF23929 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF23930 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF23931 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23932 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF23935 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23938 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF23940 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23941 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23925 A)
                                            (W-REF23933 W)
                                            (Z-REF23934 Z)
                                            (ISUPPZ-REF23936 ISUPPZ)
                                            (WORK-REF23937 WORK)
                                            (IWORK-REF23939 IWORK))
      (%%DSYEVR JOBZ RANGE UPLO N-REF23924 A-REF23925 LDA-REF23926
       VL-REF23927 VU-REF23928 IL-REF23929 IU-REF23930 ABSTOL-REF23931
       M-REF23932 W-REF23933 Z-REF23934 LDZ-REF23935 ISUPPZ-REF23936
       WORK-REF23937 LWORK-REF23938 IWORK-REF23939 LIWORK-REF23940
       INFO-REF23941))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBRFSX "dgbrfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBRFSX
    (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X LDX
     RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23944 ':INT32)
                              (KL-REF23945 ':INT32)
                              (KU-REF23946 ':INT32)
                              (NRHS-REF23947 ':INT32)
                              (LDAB-REF23949 ':INT32)
                              (LDAFB-REF23951 ':INT32)
                              (LDB-REF23956 ':INT32)
                              (LDX-REF23958 ':INT32)
                              (RCOND-REF23959 ':DOUBLE)
                              (N_ERR_BNDS-REF23961 ':INT32)
                              (NPARAMS-REF23964 ':INT32)
                              (INFO-REF23968 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF23945 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF23946 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF23947 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF23949 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF23951 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23956 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF23958 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF23959 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF23961 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF23964 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23968 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF23948 AB)
                                            (AFB-REF23950 AFB)
                                            (IPIV-REF23952 IPIV)
                                            (R-REF23953 R)
                                            (C-REF23954 C)
                                            (B-REF23955 B)
                                            (X-REF23957 X)
                                            (BERR-REF23960 BERR)
                                            (ERR_BNDS_NORM-REF23962
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF23963
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF23965 PARAMS)
                                            (WORK-REF23966 WORK)
                                            (IWORK-REF23967 IWORK))
      (%%DGBRFSX TRANS EQUED N-REF23944 KL-REF23945 KU-REF23946
       NRHS-REF23947 AB-REF23948 LDAB-REF23949 AFB-REF23950
       LDAFB-REF23951 IPIV-REF23952 R-REF23953 C-REF23954 B-REF23955
       LDB-REF23956 X-REF23957 LDX-REF23958 RCOND-REF23959
       BERR-REF23960 N_ERR_BNDS-REF23961 ERR_BNDS_NORM-REF23962
       ERR_BNDS_COMP-REF23963 NPARAMS-REF23964 PARAMS-REF23965
       WORK-REF23966 IWORK-REF23967 INFO-REF23968))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASYF_AA "zlasyf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (J1 :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF23970 ':INT32)
                              (M-REF23971 ':INT32)
                              (NB-REF23972 ':INT32)
                              (LDA-REF23974 ':INT32)
                              (LDH-REF23977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF23970 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23971 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23972 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23974 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF23977 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23973 A)
                                            (IPIV-REF23975 IPIV)
                                            (H-REF23976 H)
                                            (WORK-REF23978 WORK))
      (%%ZLASYF_AA UPLO J1-REF23970 M-REF23971 NB-REF23972 A-REF23973
       LDA-REF23974 IPIV-REF23975 H-REF23976 LDH-REF23977
       WORK-REF23978))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEEV "zgeev_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEEV
    (JOBVL JOBVR N A LDA W VL LDVL VR LDVR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23981 ':INT32)
                              (LDA-REF23983 ':INT32)
                              (LDVL-REF23986 ':INT32)
                              (LDVR-REF23988 ':INT32)
                              (LWORK-REF23990 ':INT32)
                              (INFO-REF23992 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23981 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF23986 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF23988 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23990 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23992 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23982 A)
                                            (W-REF23984 W)
                                            (VL-REF23985 VL)
                                            (VR-REF23987 VR)
                                            (WORK-REF23989 WORK)
                                            (RWORK-REF23991 RWORK))
      (%%ZGEEV JOBVL JOBVR N-REF23981 A-REF23982 LDA-REF23983
       W-REF23984 VL-REF23985 LDVL-REF23986 VR-REF23987 LDVR-REF23988
       WORK-REF23989 LWORK-REF23990 RWORK-REF23991 INFO-REF23992))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPFTRI "dpftri_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23995 ':INT32)
                              (INFO-REF23997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23995 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23996 A))
      (%%DPFTRI TRANSR UPLO N-REF23995 A-REF23996 INFO-REF23997))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%IZMAX1 "izmax1_")
  ((N :FOREIGN-ADDRESS) (ZX :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %IZMAX1 (N ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IZMAX1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ZX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23998 ':INT32)
                              (INCX-REF24000 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23998 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24000 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF23999 ZX))
      (%%IZMAX1 N-REF23998 ZX-REF23999 INCX-REF24000))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYSV_ROOK "csysv_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYSV_ROOK
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24002 ':INT32)
                              (NRHS-REF24003 ':INT32)
                              (LDA-REF24005 ':INT32)
                              (LDB-REF24008 ':INT32)
                              (LWORK-REF24010 ':INT32)
                              (INFO-REF24011 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24002 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF24003 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24005 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24008 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24010 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24011 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24004 A)
                                            (IPIV-REF24006 IPIV)
                                            (B-REF24007 B)
                                            (WORK-REF24009 WORK))
      (%%CSYSV_ROOK UPLO N-REF24002 NRHS-REF24003 A-REF24004
       LDA-REF24005 IPIV-REF24006 B-REF24007 LDB-REF24008 WORK-REF24009
       LWORK-REF24010 INFO-REF24011))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPFTRF "spftrf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24014 ':INT32)
                              (INFO-REF24016 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24014 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24016 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24015 A))
      (%%SPFTRF TRANSR UPLO N-REF24014 A-REF24015 INFO-REF24016))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANSB "slansb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24019 ':INT32) (K-REF24020 ':INT32)
                              (LDAB-REF24022 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24019 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24020 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF24022 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF24021 AB)
                                            (WORK-REF24023 WORK))
      (%%SLANSB NORM UPLO N-REF24019 K-REF24020 AB-REF24021
       LDAB-REF24022 WORK-REF24023))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPTRS "spptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24025 ':INT32)
                              (NRHS-REF24026 ':INT32)
                              (LDB-REF24029 ':INT32)
                              (INFO-REF24030 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24025 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF24026 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24029 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24030 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24027 AP)
                                            (B-REF24028 B))
      (%%SPPTRS UPLO N-REF24025 NRHS-REF24026 AP-REF24027 B-REF24028
       LDB-REF24029 INFO-REF24030))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAHR2 "zlahr2_")
  ((N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24031 ':INT32) (K-REF24032 ':INT32)
                              (NB-REF24033 ':INT32)
                              (LDA-REF24035 ':INT32)
                              (LDT-REF24038 ':INT32)
                              (LDY-REF24040 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24032 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF24033 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24035 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF24038 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF24040 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24034 A)
                                            (TAU-REF24036 TAU)
                                            (T-REF24037 T)
                                            (Y-REF24039 Y))
      (%%ZLAHR2 N-REF24031 K-REF24032 NB-REF24033 A-REF24034
       LDA-REF24035 TAU-REF24036 T-REF24037 LDT-REF24038 Y-REF24039
       LDY-REF24040))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEBAL "zgebal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24042 ':INT32)
                              (LDA-REF24044 ':INT32)
                              (ILO-REF24045 ':INT32)
                              (IHI-REF24046 ':INT32)
                              (INFO-REF24048 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24042 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24044 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF24045 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF24046 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24048 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24043 A)
                                            (SCALE-REF24047 SCALE))
      (%%ZGEBAL JOB N-REF24042 A-REF24043 LDA-REF24044 ILO-REF24045
       IHI-REF24046 SCALE-REF24047 INFO-REF24048))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLATPS "zlatps_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLATPS
    (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATPS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24053 ':INT32)
                              (SCALE-REF24056 ':DOUBLE)
                              (INFO-REF24058 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24053 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF24056 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24058 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24054 AP)
                                            (X-REF24055 X)
                                            (CNORM-REF24057 CNORM))
      (%%ZLATPS UPLO TRANS DIAG NORMIN N-REF24053 AP-REF24054
       X-REF24055 SCALE-REF24056 CNORM-REF24057 INFO-REF24058))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEMQR "sgemqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (TSIZE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEMQR
    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24061 ':INT32) (N-REF24062 ':INT32)
                              (K-REF24063 ':INT32)
                              (LDA-REF24065 ':INT32)
                              (TSIZE-REF24067 ':INT32)
                              (LDC-REF24069 ':INT32)
                              (LWORK-REF24071 ':INT32)
                              (INFO-REF24072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24061 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24062 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24063 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24065 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF24067 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24069 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24071 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24064 A)
                                            (T-REF24066 T)
                                            (C-REF24068 C)
                                            (WORK-REF24070 WORK))
      (%%SGEMQR SIDE TRANS M-REF24061 N-REF24062 K-REF24063 A-REF24064
       LDA-REF24065 T-REF24066 TSIZE-REF24067 C-REF24068 LDC-REF24069
       WORK-REF24070 LWORK-REF24071 INFO-REF24072))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORM22 "dorm22_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS)
   (N2 :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORM22
    (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM22)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24075 ':INT32) (N-REF24076 ':INT32)
                              (N1-REF24077 ':INT32)
                              (N2-REF24078 ':INT32)
                              (LDQ-REF24080 ':INT32)
                              (LDC-REF24082 ':INT32)
                              (LWORK-REF24084 ':INT32)
                              (INFO-REF24085 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24075 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24076 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF24077 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF24078 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF24080 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24082 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24084 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24085 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF24079 Q)
                                            (C-REF24081 C)
                                            (WORK-REF24083 WORK))
      (%%DORM22 SIDE TRANS M-REF24075 N-REF24076 N1-REF24077
       N2-REF24078 Q-REF24079 LDQ-REF24080 C-REF24081 LDC-REF24082
       WORK-REF24083 LWORK-REF24084 INFO-REF24085))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CHLA_TRANSTYPE "chla_transtype_") ((TRANS :FOREIGN-ADDRESS))
  :RETURNING ((COMMON-LISP:* :CHAR) COMMON-LISP:STRING) :RELEASE-HEAP
  :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHLA_TRANSTYPE (TRANS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHLA_TRANSTYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF24086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF24086 :INT32) TRANS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CHLA_TRANSTYPE TRANS-REF24086))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPSVX "cspsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPSVX
    (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR WORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24089 ':INT32)
                              (NRHS-REF24090 ':INT32)
                              (LDB-REF24095 ':INT32)
                              (LDX-REF24097 ':INT32)
                              (RCOND-REF24098 ':FLOAT)
                              (INFO-REF24103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24089 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF24090 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24095 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF24097 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF24098 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24103 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24091 AP)
                                            (AFP-REF24092 AFP)
                                            (IPIV-REF24093 IPIV)
                                            (B-REF24094 B)
                                            (X-REF24096 X)
                                            (FERR-REF24099 FERR)
                                            (BERR-REF24100 BERR)
                                            (WORK-REF24101 WORK)
                                            (RWORK-REF24102 RWORK))
      (%%CSPSVX FACT UPLO N-REF24089 NRHS-REF24090 AP-REF24091
       AFP-REF24092 IPIV-REF24093 B-REF24094 LDB-REF24095 X-REF24096
       LDX-REF24097 RCOND-REF24098 FERR-REF24099 BERR-REF24100
       WORK-REF24101 RWORK-REF24102 INFO-REF24103))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYSVX "csysvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYSVX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR BERR
     WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24106 ':INT32)
                              (NRHS-REF24107 ':INT32)
                              (LDA-REF24109 ':INT32)
                              (LDAF-REF24111 ':INT32)
                              (LDB-REF24114 ':INT32)
                              (LDX-REF24116 ':INT32)
                              (RCOND-REF24117 ':FLOAT)
                              (LWORK-REF24121 ':INT32)
                              (INFO-REF24123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24106 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF24107 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24109 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF24111 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24114 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF24116 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF24117 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24121 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24108 A)
                                            (AF-REF24110 AF)
                                            (IPIV-REF24112 IPIV)
                                            (B-REF24113 B)
                                            (X-REF24115 X)
                                            (FERR-REF24118 FERR)
                                            (BERR-REF24119 BERR)
                                            (WORK-REF24120 WORK)
                                            (RWORK-REF24122 RWORK))
      (%%CSYSVX FACT UPLO N-REF24106 NRHS-REF24107 A-REF24108
       LDA-REF24109 AF-REF24110 LDAF-REF24111 IPIV-REF24112 B-REF24113
       LDB-REF24114 X-REF24115 LDX-REF24116 RCOND-REF24117
       FERR-REF24118 BERR-REF24119 WORK-REF24120 LWORK-REF24121
       RWORK-REF24122 INFO-REF24123))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DBDSVDX "dbdsvdx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DBDSVDX
    (UPLO JOBZ RANGE N D E VL VU IL IU NS S Z LDZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSVDX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24127 ':INT32)
                              (VL-REF24130 ':DOUBLE)
                              (VU-REF24131 ':DOUBLE)
                              (IL-REF24132 ':INT32)
                              (IU-REF24133 ':INT32)
                              (NS-REF24134 ':INT32)
                              (LDZ-REF24137 ':INT32)
                              (INFO-REF24140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24127 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF24130 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF24131 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF24132 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF24133 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF24134 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF24137 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF24128 D)
                                            (E-REF24129 E)
                                            (S-REF24135 S)
                                            (Z-REF24136 Z)
                                            (WORK-REF24138 WORK)
                                            (IWORK-REF24139 IWORK))
      (%%DBDSVDX UPLO JOBZ RANGE N-REF24127 D-REF24128 E-REF24129
       VL-REF24130 VU-REF24131 IL-REF24132 IU-REF24133 NS-REF24134
       S-REF24135 Z-REF24136 LDZ-REF24137 WORK-REF24138 IWORK-REF24139
       INFO-REF24140))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASYF "zlasyf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24142 ':INT32)
                              (NB-REF24143 ':INT32)
                              (KB-REF24144 ':INT32)
                              (LDA-REF24146 ':INT32)
                              (LDW-REF24149 ':INT32)
                              (INFO-REF24150 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24142 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF24143 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF24144 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24146 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF24149 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24150 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24145 A)
                                            (IPIV-REF24147 IPIV)
                                            (W-REF24148 W))
      (%%ZLASYF UPLO N-REF24142 NB-REF24143 KB-REF24144 A-REF24145
       LDA-REF24146 IPIV-REF24147 W-REF24148 LDW-REF24149
       INFO-REF24150))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQTR "slaqtr_")
  ((LTRAN :FOREIGN-ADDRESS) (LREAL :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQTR (LTRAN LREAL N T LDT B W SCALE X WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQTR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRAN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LREAL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT W)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF24151 ':INT32)
                              (LREAL-REF24152 ':INT32)
                              (N-REF24153 ':INT32)
                              (LDT-REF24155 ':INT32)
                              (W-REF24157 ':FLOAT)
                              (SCALE-REF24158 ':FLOAT)
                              (INFO-REF24161 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF24151 :INT32) LTRAN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF24152 :INT32) LREAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24153 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF24155 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF24157 :FLOAT) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF24158 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24161 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF24154 T)
                                            (B-REF24156 B)
                                            (X-REF24159 X)
                                            (WORK-REF24160 WORK))
      (%%SLAQTR LTRAN-REF24151 LREAL-REF24152 N-REF24153 T-REF24154
       LDT-REF24155 B-REF24156 W-REF24157 SCALE-REF24158 X-REF24159
       WORK-REF24160 INFO-REF24161))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOSVXX "zposvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOSVXX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND RPVGRW
     BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24164 ':INT32)
                              (NRHS-REF24165 ':INT32)
                              (LDA-REF24167 ':INT32)
                              (LDAF-REF24169 ':INT32)
                              (LDB-REF24173 ':INT32)
                              (LDX-REF24175 ':INT32)
                              (RCOND-REF24176 ':DOUBLE)
                              (RPVGRW-REF24177 ':DOUBLE)
                              (N_ERR_BNDS-REF24179 ':INT32)
                              (NPARAMS-REF24182 ':INT32)
                              (INFO-REF24186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24164 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF24165 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24167 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF24169 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24173 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF24175 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF24176 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF24177 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF24179 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF24182 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24186 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24166 A)
                                            (AF-REF24168 AF)
                                            (S-REF24171 S)
                                            (B-REF24172 B)
                                            (X-REF24174 X)
                                            (BERR-REF24178 BERR)
                                            (ERR_BNDS_NORM-REF24180
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF24181
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF24183 PARAMS)
                                            (WORK-REF24184 WORK)
                                            (RWORK-REF24185 RWORK))
      (%%ZPOSVXX FACT UPLO N-REF24164 NRHS-REF24165 A-REF24166
       LDA-REF24167 AF-REF24168 LDAF-REF24169 EQUED S-REF24171
       B-REF24172 LDB-REF24173 X-REF24174 LDX-REF24175 RCOND-REF24176
       RPVGRW-REF24177 BERR-REF24178 N_ERR_BNDS-REF24179
       ERR_BNDS_NORM-REF24180 ERR_BNDS_COMP-REF24181 NPARAMS-REF24182
       PARAMS-REF24183 WORK-REF24184 RWORK-REF24185 INFO-REF24186))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBGVX "dsbgvx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBGVX
    (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU ABSTOL M
     W Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24190 ':INT32)
                              (KA-REF24191 ':INT32)
                              (KB-REF24192 ':INT32)
                              (LDAB-REF24194 ':INT32)
                              (LDBB-REF24196 ':INT32)
                              (LDQ-REF24198 ':INT32)
                              (VL-REF24199 ':DOUBLE)
                              (VU-REF24200 ':DOUBLE)
                              (IL-REF24201 ':INT32)
                              (IU-REF24202 ':INT32)
                              (ABSTOL-REF24203 ':DOUBLE)
                              (M-REF24204 ':INT32)
                              (LDZ-REF24207 ':INT32)
                              (INFO-REF24211 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF24191 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF24192 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF24194 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF24196 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF24198 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF24199 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF24200 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF24201 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF24202 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF24203 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24204 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF24207 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24211 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF24193 AB)
                                            (BB-REF24195 BB)
                                            (Q-REF24197 Q)
                                            (W-REF24205 W)
                                            (Z-REF24206 Z)
                                            (WORK-REF24208 WORK)
                                            (IWORK-REF24209 IWORK)
                                            (IFAIL-REF24210 IFAIL))
      (%%DSBGVX JOBZ RANGE UPLO N-REF24190 KA-REF24191 KB-REF24192
       AB-REF24193 LDAB-REF24194 BB-REF24195 LDBB-REF24196 Q-REF24197
       LDQ-REF24198 VL-REF24199 VU-REF24200 IL-REF24201 IU-REF24202
       ABSTOL-REF24203 M-REF24204 W-REF24205 Z-REF24206 LDZ-REF24207
       WORK-REF24208 IWORK-REF24209 IFAIL-REF24210 INFO-REF24211))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEDC "sstedc_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEDC
    (COMPZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEDC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24213 ':INT32)
                              (LDZ-REF24217 ':INT32)
                              (LWORK-REF24219 ':INT32)
                              (LIWORK-REF24221 ':INT32)
                              (INFO-REF24222 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24213 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF24217 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24219 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF24221 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24222 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF24214 D)
                                            (E-REF24215 E)
                                            (Z-REF24216 Z)
                                            (WORK-REF24218 WORK)
                                            (IWORK-REF24220 IWORK))
      (%%SSTEDC COMPZ N-REF24213 D-REF24214 E-REF24215 Z-REF24216
       LDZ-REF24217 WORK-REF24218 LWORK-REF24219 IWORK-REF24220
       LIWORK-REF24221 INFO-REF24222))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPTTR "dtpttr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24224 ':INT32)
                              (LDA-REF24227 ':INT32)
                              (INFO-REF24228 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24224 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24227 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24228 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24225 AP)
                                            (A-REF24226 A))
      (%%DTPTTR UPLO N-REF24224 AP-REF24225 A-REF24226 LDA-REF24227
       INFO-REF24228))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_PORPVGRW "dla_porpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NCOLS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF24230 ':INT32)
                              (LDA-REF24232 ':INT32)
                              (LDAF-REF24234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF24230 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24232 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF24234 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24231 A)
                                            (AF-REF24233 AF)
                                            (WORK-REF24235 WORK))
      (%%DLA_PORPVGRW UPLO NCOLS-REF24230 A-REF24231 LDA-REF24232
       AF-REF24233 LDAF-REF24234 WORK-REF24235))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DBBCSD "dbbcsd_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV2T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (U1 :FOREIGN-ADDRESS) (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (V2T :FOREIGN-ADDRESS)
   (LDV2T :FOREIGN-ADDRESS) (B11D :FOREIGN-ADDRESS)
   (B11E :FOREIGN-ADDRESS) (B12D :FOREIGN-ADDRESS)
   (B12E :FOREIGN-ADDRESS) (B21D :FOREIGN-ADDRESS)
   (B21E :FOREIGN-ADDRESS) (B22D :FOREIGN-ADDRESS)
   (B22E :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DBBCSD
    (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2 LDU2
     V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D B22E WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBBCSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V2T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B11D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B11E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B12D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B12E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B21D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B21E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B22D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B22E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24241 ':INT32) (P-REF24242 ':INT32)
                              (Q-REF24243 ':INT32)
                              (LDU1-REF24247 ':INT32)
                              (LDU2-REF24249 ':INT32)
                              (LDV1T-REF24251 ':INT32)
                              (LDV2T-REF24253 ':INT32)
                              (LWORK-REF24263 ':INT32)
                              (INFO-REF24264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24241 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF24242 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF24243 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF24247 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF24249 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF24251 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF24253 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24263 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF24244 THETA)
                                            (PHI-REF24245 PHI)
                                            (U1-REF24246 U1)
                                            (U2-REF24248 U2)
                                            (V1T-REF24250 V1T)
                                            (V2T-REF24252 V2T)
                                            (B11D-REF24254 B11D)
                                            (B11E-REF24255 B11E)
                                            (B12D-REF24256 B12D)
                                            (B12E-REF24257 B12E)
                                            (B21D-REF24258 B21D)
                                            (B21E-REF24259 B21E)
                                            (B22D-REF24260 B22D)
                                            (B22E-REF24261 B22E)
                                            (WORK-REF24262 WORK))
      (%%DBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF24241 P-REF24242
       Q-REF24243 THETA-REF24244 PHI-REF24245 U1-REF24246 LDU1-REF24247
       U2-REF24248 LDU2-REF24249 V1T-REF24250 LDV1T-REF24251
       V2T-REF24252 LDV2T-REF24253 B11D-REF24254 B11E-REF24255
       B12D-REF24256 B12E-REF24257 B21D-REF24258 B21E-REF24259
       B22D-REF24260 B22E-REF24261 WORK-REF24262 LWORK-REF24263
       INFO-REF24264))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNG2R "zung2r_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNG2R)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24265 ':INT32) (N-REF24266 ':INT32)
                              (K-REF24267 ':INT32)
                              (LDA-REF24269 ':INT32)
                              (INFO-REF24272 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24265 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24267 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24269 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24272 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24268 A)
                                            (TAU-REF24270 TAU)
                                            (WORK-REF24271 WORK))
      (%%ZUNG2R M-REF24265 N-REF24266 K-REF24267 A-REF24268
       LDA-REF24269 TAU-REF24270 WORK-REF24271 INFO-REF24272))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARFY "zlarfy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24274 ':INT32)
                              (INCV-REF24276 ':INT32)
                              (TAU-REF24277
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF24279 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24274 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF24276 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF24277
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24279 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF24275 V)
                                            (C-REF24278 C)
                                            (WORK-REF24280 WORK))
      (%%ZLARFY UPLO N-REF24274 V-REF24275 INCV-REF24276 TAU-REF24277
       C-REF24278 LDC-REF24279 WORK-REF24280))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARZB "slarzb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARZB
    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24285 ':INT32) (N-REF24286 ':INT32)
                              (K-REF24287 ':INT32) (L-REF24288 ':INT32)
                              (LDV-REF24290 ':INT32)
                              (LDT-REF24292 ':INT32)
                              (LDC-REF24294 ':INT32)
                              (LDWORK-REF24296 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24285 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24287 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF24288 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF24290 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF24292 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24294 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF24296 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF24289 V)
                                            (T-REF24291 T)
                                            (C-REF24293 C)
                                            (WORK-REF24295 WORK))
      (%%SLARZB SIDE TRANS DIRECT STOREV M-REF24285 N-REF24286
       K-REF24287 L-REF24288 V-REF24289 LDV-REF24290 T-REF24291
       LDT-REF24292 C-REF24293 LDC-REF24294 WORK-REF24295
       LDWORK-REF24296))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRSEN "ztrsen_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRSEN
    (JOB COMPQ SELECT N T LDT Q LDQ W M S SEP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSEN)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24300 ':INT32)
                              (LDT-REF24302 ':INT32)
                              (LDQ-REF24304 ':INT32)
                              (M-REF24306 ':INT32)
                              (S-REF24307 ':DOUBLE)
                              (SEP-REF24308 ':DOUBLE)
                              (LWORK-REF24310 ':INT32)
                              (INFO-REF24311 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24300 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF24302 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF24304 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24306 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF24307 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF24308 :DOUBLE) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24310 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24311 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF24299 SELECT)
                                            (T-REF24301 T)
                                            (Q-REF24303 Q)
                                            (W-REF24305 W)
                                            (WORK-REF24309 WORK))
      (%%ZTRSEN JOB COMPQ SELECT-REF24299 N-REF24300 T-REF24301
       LDT-REF24302 Q-REF24303 LDQ-REF24304 W-REF24305 M-REF24306
       S-REF24307 SEP-REF24308 WORK-REF24309 LWORK-REF24310
       INFO-REF24311))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEVR "ssyevr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEVR
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
     LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24315 ':INT32)
                              (LDA-REF24317 ':INT32)
                              (VL-REF24318 ':FLOAT)
                              (VU-REF24319 ':FLOAT)
                              (IL-REF24320 ':INT32)
                              (IU-REF24321 ':INT32)
                              (ABSTOL-REF24322 ':FLOAT)
                              (M-REF24323 ':INT32)
                              (LDZ-REF24326 ':INT32)
                              (LWORK-REF24329 ':INT32)
                              (LIWORK-REF24331 ':INT32)
                              (INFO-REF24332 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24315 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24317 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF24318 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF24319 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF24320 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF24321 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF24322 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24323 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF24326 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24329 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF24331 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24332 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24316 A)
                                            (W-REF24324 W)
                                            (Z-REF24325 Z)
                                            (ISUPPZ-REF24327 ISUPPZ)
                                            (WORK-REF24328 WORK)
                                            (IWORK-REF24330 IWORK))
      (%%SSYEVR JOBZ RANGE UPLO N-REF24315 A-REF24316 LDA-REF24317
       VL-REF24318 VU-REF24319 IL-REF24320 IU-REF24321 ABSTOL-REF24322
       M-REF24323 W-REF24324 Z-REF24325 LDZ-REF24326 ISUPPZ-REF24327
       WORK-REF24328 LWORK-REF24329 IWORK-REF24330 LIWORK-REF24331
       INFO-REF24332))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORBDB2 "dorbdb2_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORBDB2
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24333 ':INT32) (P-REF24334 ':INT32)
                              (Q-REF24335 ':INT32)
                              (LDX11-REF24337 ':INT32)
                              (LDX21-REF24339 ':INT32)
                              (LWORK-REF24346 ':INT32)
                              (INFO-REF24347 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24333 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF24334 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF24335 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF24337 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF24339 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24346 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24347 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF24336 X11)
                                            (X21-REF24338 X21)
                                            (THETA-REF24340 THETA)
                                            (PHI-REF24341 PHI)
                                            (TAUP1-REF24342 TAUP1)
                                            (TAUP2-REF24343 TAUP2)
                                            (TAUQ1-REF24344 TAUQ1)
                                            (WORK-REF24345 WORK))
      (%%DORBDB2 M-REF24333 P-REF24334 Q-REF24335 X11-REF24336
       LDX11-REF24337 X21-REF24338 LDX21-REF24339 THETA-REF24340
       PHI-REF24341 TAUP1-REF24342 TAUP2-REF24343 TAUQ1-REF24344
       WORK-REF24345 LWORK-REF24346 INFO-REF24347))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARNV "zlarnv_")
  ((IDIST :FOREIGN-ADDRESS) (ISEED :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARNV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISEED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF24348 ':INT32)
                              (N-REF24350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF24348 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24350 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF24349 ISEED)
                                            (X-REF24351 X))
      (%%ZLARNV IDIST-REF24348 ISEED-REF24349 N-REF24350 X-REF24351))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTD2 "ssytd2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTD2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24353 ':INT32)
                              (LDA-REF24355 ':INT32)
                              (INFO-REF24359 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24355 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24359 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24354 A)
                                            (D-REF24356 D)
                                            (E-REF24357 E)
                                            (TAU-REF24358 TAU))
      (%%SSYTD2 UPLO N-REF24353 A-REF24354 LDA-REF24355 D-REF24356
       E-REF24357 TAU-REF24358 INFO-REF24359))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARTV "dlartv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24360 ':INT32)
                              (INCX-REF24362 ':INT32)
                              (INCY-REF24364 ':INT32)
                              (INCC-REF24367 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24360 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24362 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24364 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF24367 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24361 X)
                                            (Y-REF24363 Y)
                                            (C-REF24365 C)
                                            (S-REF24366 S))
      (%%DLARTV N-REF24360 X-REF24361 INCX-REF24362 Y-REF24363
       INCY-REF24364 C-REF24365 S-REF24366 INCC-REF24367))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_WWADDW "cla_wwaddw_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_WWADDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24368 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24369 X)
                                            (Y-REF24370 Y)
                                            (W-REF24371 W))
      (%%CLA_WWADDW N-REF24368 X-REF24369 Y-REF24370 W-REF24371))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%DLAORHR_COL_GETRFNP2 "dlaorhr_col_getrfnp2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAORHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAORHR_COL_GETRFNP2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24372 ':INT32) (N-REF24373 ':INT32)
                              (LDA-REF24375 ':INT32)
                              (INFO-REF24377 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24372 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24373 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24375 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24377 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24374 A)
                                            (D-REF24376 D))
      (%%DLAORHR_COL_GETRFNP2 M-REF24372 N-REF24373 A-REF24374
       LDA-REF24375 D-REF24376 INFO-REF24377))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRE "dlarre_")
  ((RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (E2 :FOREIGN-ADDRESS) (RTOL1 :FOREIGN-ADDRESS)
   (RTOL2 :FOREIGN-ADDRESS) (SPLTOL :FOREIGN-ADDRESS)
   (NSPLIT :FOREIGN-ADDRESS) (ISPLIT :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (WGAP :FOREIGN-ADDRESS) (IBLOCK :FOREIGN-ADDRESS)
   (INDEXW :FOREIGN-ADDRESS) (GERS :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRE
    (RANGE N VL VU IL IU D E E2 RTOL1 RTOL2 SPLTOL NSPLIT ISPLIT M W
     WERR WGAP IBLOCK INDEXW GERS PIVMIN WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GERS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24379 ':INT32)
                              (VL-REF24380 ':DOUBLE)
                              (VU-REF24381 ':DOUBLE)
                              (IL-REF24382 ':INT32)
                              (IU-REF24383 ':INT32)
                              (RTOL1-REF24387 ':DOUBLE)
                              (RTOL2-REF24388 ':DOUBLE)
                              (SPLTOL-REF24389 ':DOUBLE)
                              (NSPLIT-REF24390 ':INT32)
                              (M-REF24392 ':INT32)
                              (PIVMIN-REF24399 ':DOUBLE)
                              (INFO-REF24402 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24379 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF24380 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF24381 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF24382 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF24383 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF24387 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF24388 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF24389 :DOUBLE) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF24390 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24392 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF24399 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24402 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF24384 D)
                                            (E-REF24385 E)
                                            (E2-REF24386 E2)
                                            (ISPLIT-REF24391 ISPLIT)
                                            (W-REF24393 W)
                                            (WERR-REF24394 WERR)
                                            (WGAP-REF24395 WGAP)
                                            (IBLOCK-REF24396 IBLOCK)
                                            (INDEXW-REF24397 INDEXW)
                                            (GERS-REF24398 GERS)
                                            (WORK-REF24400 WORK)
                                            (IWORK-REF24401 IWORK))
      (%%DLARRE RANGE N-REF24379 VL-REF24380 VU-REF24381 IL-REF24382
       IU-REF24383 D-REF24384 E-REF24385 E2-REF24386 RTOL1-REF24387
       RTOL2-REF24388 SPLTOL-REF24389 NSPLIT-REF24390 ISPLIT-REF24391
       M-REF24392 W-REF24393 WERR-REF24394 WGAP-REF24395
       IBLOCK-REF24396 INDEXW-REF24397 GERS-REF24398 PIVMIN-REF24399
       WORK-REF24400 IWORK-REF24401 INFO-REF24402))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARF "dlarf_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24404 ':INT32) (N-REF24405 ':INT32)
                              (INCV-REF24407 ':INT32)
                              (TAU-REF24408 ':DOUBLE)
                              (LDC-REF24410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24404 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24405 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF24407 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF24408 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24410 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF24406 V)
                                            (C-REF24409 C)
                                            (WORK-REF24411 WORK))
      (%%DLARF SIDE M-REF24404 N-REF24405 V-REF24406 INCV-REF24407
       TAU-REF24408 C-REF24409 LDC-REF24410 WORK-REF24411))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHECON "zhecon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHECON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24413 ':INT32)
                              (LDA-REF24415 ':INT32)
                              (ANORM-REF24417 ':DOUBLE)
                              (RCOND-REF24418 ':DOUBLE)
                              (INFO-REF24420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24415 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF24417 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF24418 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24414 A)
                                            (IPIV-REF24416 IPIV)
                                            (WORK-REF24419 WORK))
      (%%ZHECON UPLO N-REF24413 A-REF24414 LDA-REF24415 IPIV-REF24416
       ANORM-REF24417 RCOND-REF24418 WORK-REF24419 INFO-REF24420))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_HERCOND_C "cla_hercond_c_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (CAPPLY :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_HERCOND_C
    (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24422 ':INT32)
                              (LDA-REF24424 ':INT32)
                              (LDAF-REF24426 ':INT32)
                              (CAPPLY-REF24429 ':INT32)
                              (INFO-REF24430 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24422 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24424 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF24426 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF24429 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24430 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24423 A)
                                            (AF-REF24425 AF)
                                            (IPIV-REF24427 IPIV)
                                            (C-REF24428 C)
                                            (WORK-REF24431 WORK)
                                            (RWORK-REF24432 RWORK))
      (%%CLA_HERCOND_C UPLO N-REF24422 A-REF24423 LDA-REF24424
       AF-REF24425 LDAF-REF24426 IPIV-REF24427 C-REF24428
       CAPPLY-REF24429 INFO-REF24430 WORK-REF24431 RWORK-REF24432))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_GBAMV "cla_gbamv_")
  ((TRANS :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GBAMV
    (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF24433 ':INT32)
                              (M-REF24434 ':INT32) (N-REF24435 ':INT32)
                              (KL-REF24436 ':INT32)
                              (KU-REF24437 ':INT32)
                              (ALPHA-REF24438 ':FLOAT)
                              (LDAB-REF24440 ':INT32)
                              (INCX-REF24442 ':INT32)
                              (BETA-REF24443 ':FLOAT)
                              (INCY-REF24445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF24433 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24434 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24435 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF24436 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF24437 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24438 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF24440 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24442 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24443 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24445 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF24439 AB)
                                            (X-REF24441 X)
                                            (Y-REF24444 Y))
      (%%CLA_GBAMV TRANS-REF24433 M-REF24434 N-REF24435 KL-REF24436
       KU-REF24437 ALPHA-REF24438 AB-REF24439 LDAB-REF24440 X-REF24441
       INCX-REF24442 BETA-REF24443 Y-REF24444 INCY-REF24445))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPBSTF "dpbstf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24447 ':INT32)
                              (KD-REF24448 ':INT32)
                              (LDAB-REF24450 ':INT32)
                              (INFO-REF24451 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF24448 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF24450 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24451 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF24449 AB))
      (%%DPBSTF UPLO N-REF24447 KD-REF24448 AB-REF24449 LDAB-REF24450
       INFO-REF24451))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLACON "zlacon_")
  ((N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (EST :FOREIGN-ADDRESS) (KASE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLACON (N V X EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACON)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24452 ':INT32)
                              (EST-REF24455 ':DOUBLE)
                              (KASE-REF24456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24452 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF24455 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF24456 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF24453 V)
                                            (X-REF24454 X))
      (%%ZLACON N-REF24452 V-REF24453 X-REF24454 EST-REF24455
       KASE-REF24456))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAMSWLQ "clamswlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAMSWLQ
    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAMSWLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24459 ':INT32) (N-REF24460 ':INT32)
                              (K-REF24461 ':INT32)
                              (MB-REF24462 ':INT32)
                              (NB-REF24463 ':INT32)
                              (LDA-REF24465 ':INT32)
                              (LDT-REF24467 ':INT32)
                              (LDC-REF24469 ':INT32)
                              (LWORK-REF24471 ':INT32)
                              (INFO-REF24472 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24459 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24460 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24461 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF24462 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF24463 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24465 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF24467 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24469 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24471 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24472 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24464 A)
                                            (T-REF24466 T)
                                            (C-REF24468 C)
                                            (WORK-REF24470 WORK))
      (%%CLAMSWLQ SIDE TRANS M-REF24459 N-REF24460 K-REF24461
       MB-REF24462 NB-REF24463 A-REF24464 LDA-REF24465 T-REF24466
       LDT-REF24467 C-REF24468 LDC-REF24469 WORK-REF24470
       LWORK-REF24471 INFO-REF24472))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPTRF "ssptrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24474 ':INT32)
                              (INFO-REF24477 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24474 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24477 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24475 AP)
                                            (IPIV-REF24476 IPIV))
      (%%SSPTRF UPLO N-REF24474 AP-REF24475 IPIV-REF24476
       INFO-REF24477))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMTR "sormtr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMTR
    (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24481 ':INT32) (N-REF24482 ':INT32)
                              (LDA-REF24484 ':INT32)
                              (LDC-REF24487 ':INT32)
                              (LWORK-REF24489 ':INT32)
                              (INFO-REF24490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24481 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24484 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24487 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24489 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24483 A)
                                            (TAU-REF24485 TAU)
                                            (C-REF24486 C)
                                            (WORK-REF24488 WORK))
      (%%SORMTR SIDE UPLO TRANS M-REF24481 N-REF24482 A-REF24483
       LDA-REF24484 TAU-REF24485 C-REF24486 LDC-REF24487 WORK-REF24488
       LWORK-REF24489 INFO-REF24490))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEGV_2STAGE "zhegv_2stage_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEGV_2STAGE
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGV_2STAGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF24491 ':INT32)
                              (N-REF24494 ':INT32)
                              (LDA-REF24496 ':INT32)
                              (LDB-REF24498 ':INT32)
                              (LWORK-REF24501 ':INT32)
                              (INFO-REF24503 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF24491 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24494 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24496 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24498 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24501 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24503 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24495 A)
                                            (B-REF24497 B)
                                            (W-REF24499 W)
                                            (WORK-REF24500 WORK)
                                            (RWORK-REF24502 RWORK))
      (%%ZHEGV_2STAGE ITYPE-REF24491 JOBZ UPLO N-REF24494 A-REF24495
       LDA-REF24496 B-REF24497 LDB-REF24498 W-REF24499 WORK-REF24500
       LWORK-REF24501 RWORK-REF24502 INFO-REF24503))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBEVX "ssbevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBEVX
    (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z LDZ
     WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24507 ':INT32)
                              (KD-REF24508 ':INT32)
                              (LDAB-REF24510 ':INT32)
                              (LDQ-REF24512 ':INT32)
                              (VL-REF24513 ':FLOAT)
                              (VU-REF24514 ':FLOAT)
                              (IL-REF24515 ':INT32)
                              (IU-REF24516 ':INT32)
                              (ABSTOL-REF24517 ':FLOAT)
                              (M-REF24518 ':INT32)
                              (LDZ-REF24521 ':INT32)
                              (INFO-REF24525 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24507 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF24508 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF24510 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF24512 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF24513 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF24514 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF24515 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF24516 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF24517 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24518 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF24521 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24525 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF24509 AB)
                                            (Q-REF24511 Q)
                                            (W-REF24519 W)
                                            (Z-REF24520 Z)
                                            (WORK-REF24522 WORK)
                                            (IWORK-REF24523 IWORK)
                                            (IFAIL-REF24524 IFAIL))
      (%%SSBEVX JOBZ RANGE UPLO N-REF24507 KD-REF24508 AB-REF24509
       LDAB-REF24510 Q-REF24511 LDQ-REF24512 VL-REF24513 VU-REF24514
       IL-REF24515 IU-REF24516 ABSTOL-REF24517 M-REF24518 W-REF24519
       Z-REF24520 LDZ-REF24521 WORK-REF24522 IWORK-REF24523
       IFAIL-REF24524 INFO-REF24525))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%XERBLA_ARRAY "xerbla_array_")
  ((SRNAME_ARRAY :FOREIGN-ADDRESS) (SRNAME_LEN :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %XERBLA_ARRAY (SRNAME_ARRAY SRNAME_LEN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA_ARRAY)
   (COMMON-LISP:TYPE COMMON-LISP:ARRAY SRNAME_ARRAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SRNAME_LEN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF24527 ':INT32)
                              (INFO-REF24528 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF24527 :INT32)
                      SRNAME_LEN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24528 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF24526
                                             SRNAME_ARRAY))
      (%%XERBLA_ARRAY SRNAME_ARRAY-REF24526 SRNAME_LEN-REF24527
       INFO-REF24528))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEMR "dstemr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (NZC :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (TRYRAC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEMR
    (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC WORK
     LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEMR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24531 ':INT32)
                              (VL-REF24534 ':DOUBLE)
                              (VU-REF24535 ':DOUBLE)
                              (IL-REF24536 ':INT32)
                              (IU-REF24537 ':INT32)
                              (M-REF24538 ':INT32)
                              (LDZ-REF24541 ':INT32)
                              (NZC-REF24542 ':INT32)
                              (TRYRAC-REF24544 ':INT32)
                              (LWORK-REF24546 ':INT32)
                              (LIWORK-REF24548 ':INT32)
                              (INFO-REF24549 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24531 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF24534 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF24535 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF24536 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF24537 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24538 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF24541 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF24542 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF24544 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24546 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF24548 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24549 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF24532 D)
                                            (E-REF24533 E)
                                            (W-REF24539 W)
                                            (Z-REF24540 Z)
                                            (ISUPPZ-REF24543 ISUPPZ)
                                            (WORK-REF24545 WORK)
                                            (IWORK-REF24547 IWORK))
      (%%DSTEMR JOBZ RANGE N-REF24531 D-REF24532 E-REF24533 VL-REF24534
       VU-REF24535 IL-REF24536 IU-REF24537 M-REF24538 W-REF24539
       Z-REF24540 LDZ-REF24541 NZC-REF24542 ISUPPZ-REF24543
       TRYRAC-REF24544 WORK-REF24545 LWORK-REF24546 IWORK-REF24547
       LIWORK-REF24548 INFO-REF24549))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHESV_RK "chesv_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHESV_RK
    (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24551 ':INT32)
                              (NRHS-REF24552 ':INT32)
                              (LDA-REF24554 ':INT32)
                              (LDB-REF24558 ':INT32)
                              (LWORK-REF24560 ':INT32)
                              (INFO-REF24561 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24551 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF24552 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24554 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24558 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24560 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24561 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24553 A)
                                            (E-REF24555 E)
                                            (IPIV-REF24556 IPIV)
                                            (B-REF24557 B)
                                            (WORK-REF24559 WORK))
      (%%CHESV_RK UPLO N-REF24551 NRHS-REF24552 A-REF24553 LDA-REF24554
       E-REF24555 IPIV-REF24556 B-REF24557 LDB-REF24558 WORK-REF24559
       LWORK-REF24560 INFO-REF24561))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORM2L "dorm2l_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM2L)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24564 ':INT32) (N-REF24565 ':INT32)
                              (K-REF24566 ':INT32)
                              (LDA-REF24568 ':INT32)
                              (LDC-REF24571 ':INT32)
                              (INFO-REF24573 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24564 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24565 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24566 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24568 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24571 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24573 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24567 A)
                                            (TAU-REF24569 TAU)
                                            (C-REF24570 C)
                                            (WORK-REF24572 WORK))
      (%%DORM2L SIDE TRANS M-REF24564 N-REF24565 K-REF24566 A-REF24567
       LDA-REF24568 TAU-REF24569 C-REF24570 LDC-REF24571 WORK-REF24572
       INFO-REF24573))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZSYTRF_AA_2STAGE "zsytrf_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TB :FOREIGN-ADDRESS)
   (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRF_AA_2STAGE
    (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24575 ':INT32)
                              (LDA-REF24577 ':INT32)
                              (LTB-REF24579 ':INT32)
                              (LWORK-REF24583 ':INT32)
                              (INFO-REF24584 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24575 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24577 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF24579 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF24583 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24584 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24576 A)
                                            (TB-REF24578 TB)
                                            (IPIV-REF24580 IPIV)
                                            (IPIV2-REF24581 IPIV2)
                                            (WORK-REF24582 WORK))
      (%%ZSYTRF_AA_2STAGE UPLO N-REF24575 A-REF24576 LDA-REF24577
       TB-REF24578 LTB-REF24579 IPIV-REF24580 IPIV2-REF24581
       WORK-REF24582 LWORK-REF24583 INFO-REF24584))))

(COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%CUNMQL %CUNMQL %%DLABAD
                      %DLABAD %%CGGBAK %CGGBAK %%DLAGS2 %DLAGS2
                      %%SGEQR2 %SGEQR2 %%SOPGTR %SOPGTR %%CGERFSX
                      %CGERFSX %%ZGSVJ1 %ZGSVJ1 %%ZTPLQT2 %ZTPLQT2
                      %%DPTTS2 %DPTTS2 %%DTFTRI %DTFTRI %%CGEQRF
                      %CGEQRF %%CSPTRS %CSPTRS %%CGEES %CGEES %%CGEMLQ
                      %CGEMLQ %%DGEEVX %DGEEVX %%DZSUM1 %DZSUM1
                      %%DSYTRS_3 %DSYTRS_3 %%CLANSY %CLANSY %%SLANSP
                      %SLANSP %%DLAEXC %DLAEXC %%CUNGR2 %CUNGR2
                      %%SSYSVX %SSYSVX %%CTRTTF %CTRTTF %%CSYTRI_ROOK
                      %CSYTRI_ROOK %%CTZRZF %CTZRZF %%SSYSV_ROOK
                      %SSYSV_ROOK %%DSYSWAPR %DSYSWAPR %%DORMBR %DORMBR
                      %%DGEQR2P %DGEQR2P %%SLAGTM %SLAGTM
                      %%ZLA_GERCOND_X %ZLA_GERCOND_X %%CPOSVXX %CPOSVXX
                      %%ZCPOSV %ZCPOSV %%CLA_GBRCOND_C %CLA_GBRCOND_C
                      %%CTBTRS %CTBTRS %%DDISNA %DDISNA %%ZHPGVD
                      %ZHPGVD %%DORG2R %DORG2R %%DHSEIN %DHSEIN
                      %%DTRTTF %DTRTTF %%STGEVC %STGEVC %%CGELSY
                      %CGELSY %%ZLAQR4 %ZLAQR4 %%SLAMSWLQ %SLAMSWLQ
                      %%ZLA_PORPVGRW %ZLA_PORPVGRW %%CPBEQU %CPBEQU
                      %%DGSVJ1 %DGSVJ1 %%DGESVJ %DGESVJ %%DTRSNA
                      %DTRSNA %%ZLAUU2 %ZLAUU2 %%SGGSVD3 %SGGSVD3
                      %%SSBGV %SSBGV %%DGEMQRT %DGEMQRT %%DLANGE
                      %DLANGE %%ZLA_HERCOND_C %ZLA_HERCOND_C %%SGGQRF
                      %SGGQRF %%SLAS2 %SLAS2 %%DSYEVD_2STAGE
                      %DSYEVD_2STAGE %%CHPEVX %CHPEVX %%SLAUU2 %SLAUU2
                      %%ZTGEVC %ZTGEVC %%CSYSV_RK %CSYSV_RK %%CPBCON
                      %CPBCON %%DTFSM %DTFSM %%ZGTTS2 %ZGTTS2 %%ZLAQR1
                      %ZLAQR1 %%SGEQP3 %SGEQP3 %%DSYTRI_3 %DSYTRI_3
                      %%SLAED0 %SLAED0 %%ZHBEVX_2STAGE %ZHBEVX_2STAGE
                      %%DGETRS %DGETRS %%DGELS %DGELS %%DTBRFS %DTBRFS
                      %%CSTEGR %CSTEGR %%ZHETRS_AA %ZHETRS_AA %%SGGES
                      %SGGES %%SORMBR %SORMBR %%SLA_GERCOND
                      %SLA_GERCOND %%DLAQR1 %DLAQR1 %%DLALN2 %DLALN2
                      %%SLASDT %SLASDT %%DLASQ6 %DLASQ6 %%DLARRD
                      %DLARRD %%DTREVC3 %DTREVC3 %%ZLAED7 %ZLAED7
                      %%DGTSVX %DGTSVX %%ZLA_GERPVGRW %ZLA_GERPVGRW
                      %%DORBDB4 %DORBDB4 %%ZPOCON %ZPOCON %%CGETSLS
                      %CGETSLS %%STRSYL %STRSYL %%SPORFS %SPORFS
                      %%SSTEIN %SSTEIN %%CTPTTR %CTPTTR %%DLACPY
                      %DLACPY %%ZLATDF %ZLATDF %%SGGRQF %SGGRQF
                      %%ZPTEQR %ZPTEQR %%CGSVJ0 %CGSVJ0 %%ZHETRF
                      %ZHETRF %%CPORFSX %CPORFSX %%DSPOSV %DSPOSV
                      %%CGEQR2 %CGEQR2 %%DLASR %DLASR %%CGETRI %CGETRI
                      %%DORGTR %DORGTR %%CGGES3 %CGGES3 %%DSPTRI
                      %DSPTRI %%SSBGST %SSBGST %%ZPTTS2 %ZPTTS2
                      %%SORBDB %SORBDB %%CGEBAL %CGEBAL %%ZSYSV %ZSYSV
                      %%DGEHD2 %DGEHD2 %%SORMHR %SORMHR %%ZUNBDB
                      %ZUNBDB %%ZTPMQRT %ZTPMQRT %%ZLANHB %ZLANHB
                      %%SHGEQZ %SHGEQZ %%SLA_PORCOND %SLA_PORCOND
                      %%SGEBRD %SGEBRD %%SSYTRD %SSYTRD %%DLAGTF
                      %DLAGTF %%CPFTRF %CPFTRF %%STPRFB %STPRFB %%SLARF
                      %SLARF %%SPOTRS %SPOTRS %%DLAED0 %DLAED0
                      %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED
                      %%ZTPCON %ZTPCON %%ZLAQR2 %ZLAQR2 %%CUNGHR
                      %CUNGHR %%CPPRFS %CPPRFS %%CHESV_ROOK %CHESV_ROOK
                      %%CLANTB %CLANTB %%SSYSWAPR %SSYSWAPR
                      %%CLA_SYRCOND_C %CLA_SYRCOND_C %%ZGTRFS %ZGTRFS
                      %%CGESVJ %CGESVJ %%CUNMR2 %CUNMR2 %%DGEMQR
                      %DGEMQR %%DLAE2 %DLAE2 %%SLAGV2 %SLAGV2 %%ZGEEVX
                      %ZGEEVX %%ZGESVDQ %ZGESVDQ %%CLACON %CLACON
                      %%SLARNV %SLARNV %%DSTEVR %DSTEVR %%DOPMTR
                      %DOPMTR %%CPFTRS %CPFTRS %%DORMTR %DORMTR
                      %%DLAED3 %DLAED3 %%DLATRZ %DLATRZ %%CGEHD2
                      %CGEHD2 %%DLAMSWLQ %DLAMSWLQ %%CGGEV3 %CGGEV3
                      %%ZGGBAK %ZGGBAK %%CHETRF_AA_2STAGE
                      %CHETRF_AA_2STAGE %%SSYTRI_ROOK %SSYTRI_ROOK
                      %%DGEQR %DGEQR %%ZSYR %ZSYR %%SGEQRFP %SGEQRFP
                      %%SLARRE %SLARRE %%CTFSM %CTFSM %%ZPOTRI %ZPOTRI
                      %%ZHPEV %ZHPEV %%SLAQR3 %SLAQR3 %%DSYTRS2
                      %DSYTRS2 %%CHEEV %CHEEV %%CLA_HERCOND_X
                      %CLA_HERCOND_X %%ZPORFSX %ZPORFSX %%STZRZF
                      %STZRZF %%DGELSS %DGELSS %%SSYRFS %SSYRFS %%DGESV
                      %DGESV %%DSYSVXX %DSYSVXX %%CUNBDB4 %CUNBDB4
                      %%ZTFSM %ZTFSM %%SGETSLS %SGETSLS %%ZUPGTR
                      %ZUPGTR %%CLAEIN %CLAEIN %%ZGEQRT2 %ZGEQRT2
                      %%DTPQRT %DTPQRT %%CGTSV %CGTSV %%SGELSS %SGELSS
                      %%DSTEQR %DSTEQR %%SGETRI %SGETRI %%CUNGL2
                      %CUNGL2 %%ZSYTRF_ROOK %ZSYTRF_ROOK %%DLARZ %DLARZ
                      %%DSYEVR %DSYEVR %%DGBRFSX %DGBRFSX %%ZLASYF_AA
                      %ZLASYF_AA %%ZGEEV %ZGEEV %%DPFTRI %DPFTRI
                      %%IZMAX1 %IZMAX1 %%CSYSV_ROOK %CSYSV_ROOK
                      %%SPFTRF %SPFTRF %%SLANSB %SLANSB %%SPPTRS
                      %SPPTRS %%ZLAHR2 %ZLAHR2 %%ZGEBAL %ZGEBAL
                      %%ZLATPS %ZLATPS %%SGEMQR %SGEMQR %%DORM22
                      %DORM22 %%CHLA_TRANSTYPE %CHLA_TRANSTYPE %%CSPSVX
                      %CSPSVX %%CSYSVX %CSYSVX %%DBDSVDX %DBDSVDX
                      %%ZLASYF %ZLASYF %%SLAQTR %SLAQTR %%ZPOSVXX
                      %ZPOSVXX %%DSBGVX %DSBGVX %%SSTEDC %SSTEDC
                      %%DTPTTR %DTPTTR %%DLA_PORPVGRW %DLA_PORPVGRW
                      %%DBBCSD %DBBCSD %%ZUNG2R %ZUNG2R %%ZLARFY
                      %ZLARFY %%SLARZB %SLARZB %%ZTRSEN %ZTRSEN
                      %%SSYEVR %SSYEVR %%DORBDB2 %DORBDB2 %%ZLARNV
                      %ZLARNV %%SSYTD2 %SSYTD2 %%DLARTV %DLARTV
                      %%CLA_WWADDW %CLA_WWADDW %%DLAORHR_COL_GETRFNP2
                      %DLAORHR_COL_GETRFNP2 %%DLARRE %DLARRE %%DLARF
                      %DLARF %%ZHECON %ZHECON %%CLA_HERCOND_C
                      %CLA_HERCOND_C %%CLA_GBAMV %CLA_GBAMV %%DPBSTF
                      %DPBSTF %%ZLACON %ZLACON %%CLAMSWLQ %CLAMSWLQ
                      %%SSPTRF %SSPTRF %%SORMTR %SORMTR %%ZHEGV_2STAGE
                      %ZHEGV_2STAGE %%SSBEVX %SSBEVX %%XERBLA_ARRAY
                      %XERBLA_ARRAY %%DSTEMR %DSTEMR %%CHESV_RK
                      %CHESV_RK %%DORM2L %DORM2L %%ZSYTRF_AA_2STAGE
                      %ZSYTRF_AA_2STAGE))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS
  'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
  '(("CUNMQL" "cunmql_" %%CUNMQL %CUNMQL)
    ("DLABAD" "dlabad_" %%DLABAD %DLABAD)
    ("CGGBAK" "cggbak_" %%CGGBAK %CGGBAK)
    ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2)
    ("SGEQR2" "sgeqr2_" %%SGEQR2 %SGEQR2)
    ("SOPGTR" "sopgtr_" %%SOPGTR %SOPGTR)
    ("CGERFSX" "cgerfsx_" %%CGERFSX %CGERFSX)
    ("ZGSVJ1" "zgsvj1_" %%ZGSVJ1 %ZGSVJ1)
    ("ZTPLQT2" "ztplqt2_" %%ZTPLQT2 %ZTPLQT2)
    ("DPTTS2" "dptts2_" %%DPTTS2 %DPTTS2)
    ("DTFTRI" "dtftri_" %%DTFTRI %DTFTRI)
    ("CGEQRF" "cgeqrf_" %%CGEQRF %CGEQRF)
    ("CSPTRS" "csptrs_" %%CSPTRS %CSPTRS)
    ("CGEES" "cgees_" %%CGEES %CGEES)
    ("CGEMLQ" "cgemlq_" %%CGEMLQ %CGEMLQ)
    ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX)
    ("DZSUM1" "dzsum1_" %%DZSUM1 %DZSUM1)
    ("DSYTRS_3" "dsytrs_3_" %%DSYTRS_3 %DSYTRS_3)
    ("CLANSY" "clansy_" %%CLANSY %CLANSY)
    ("SLANSP" "slansp_" %%SLANSP %SLANSP)
    ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC)
    ("CUNGR2" "cungr2_" %%CUNGR2 %CUNGR2)
    ("SSYSVX" "ssysvx_" %%SSYSVX %SSYSVX)
    ("CTRTTF" "ctrttf_" %%CTRTTF %CTRTTF)
    ("CSYTRI_ROOK" "csytri_rook_" %%CSYTRI_ROOK %CSYTRI_ROOK)
    ("CTZRZF" "ctzrzf_" %%CTZRZF %CTZRZF)
    ("SSYSV_ROOK" "ssysv_rook_" %%SSYSV_ROOK %SSYSV_ROOK)
    ("DSYSWAPR" "dsyswapr_" %%DSYSWAPR %DSYSWAPR)
    ("DORMBR" "dormbr_" %%DORMBR %DORMBR)
    ("DGEQR2P" "dgeqr2p_" %%DGEQR2P %DGEQR2P)
    ("SLAGTM" "slagtm_" %%SLAGTM %SLAGTM)
    ("ZLA_GERCOND_X" "zla_gercond_x_" %%ZLA_GERCOND_X %ZLA_GERCOND_X)
    ("CPOSVXX" "cposvxx_" %%CPOSVXX %CPOSVXX)
    ("ZCPOSV" "zcposv_" %%ZCPOSV %ZCPOSV)
    ("CLA_GBRCOND_C" "cla_gbrcond_c_" %%CLA_GBRCOND_C %CLA_GBRCOND_C)
    ("CTBTRS" "ctbtrs_" %%CTBTRS %CTBTRS)
    ("DDISNA" "ddisna_" %%DDISNA %DDISNA)
    ("ZHPGVD" "zhpgvd_" %%ZHPGVD %ZHPGVD)
    ("DORG2R" "dorg2r_" %%DORG2R %DORG2R)
    ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN)
    ("DTRTTF" "dtrttf_" %%DTRTTF %DTRTTF)
    ("STGEVC" "stgevc_" %%STGEVC %STGEVC)
    ("CGELSY" "cgelsy_" %%CGELSY %CGELSY)
    ("ZLAQR4" "zlaqr4_" %%ZLAQR4 %ZLAQR4)
    ("SLAMSWLQ" "slamswlq_" %%SLAMSWLQ %SLAMSWLQ)
    ("ZLA_PORPVGRW" "zla_porpvgrw_" %%ZLA_PORPVGRW %ZLA_PORPVGRW)
    ("CPBEQU" "cpbequ_" %%CPBEQU %CPBEQU)
    ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1)
    ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ)
    ("DTRSNA" "dtrsna_" %%DTRSNA %DTRSNA)
    ("ZLAUU2" "zlauu2_" %%ZLAUU2 %ZLAUU2)
    ("SGGSVD3" "sggsvd3_" %%SGGSVD3 %SGGSVD3)
    ("SSBGV" "ssbgv_" %%SSBGV %SSBGV)
    ("DGEMQRT" "dgemqrt_" %%DGEMQRT %DGEMQRT)
    ("DLANGE" "dlange_" %%DLANGE %DLANGE)
    ("ZLA_HERCOND_C" "zla_hercond_c_" %%ZLA_HERCOND_C %ZLA_HERCOND_C)
    ("SGGQRF" "sggqrf_" %%SGGQRF %SGGQRF)
    ("SLAS2" "slas2_" %%SLAS2 %SLAS2)
    ("DSYEVD_2STAGE" "dsyevd_2stage_" %%DSYEVD_2STAGE %DSYEVD_2STAGE)
    ("CHPEVX" "chpevx_" %%CHPEVX %CHPEVX)
    ("SLAUU2" "slauu2_" %%SLAUU2 %SLAUU2)
    ("ZTGEVC" "ztgevc_" %%ZTGEVC %ZTGEVC)
    ("CSYSV_RK" "csysv_rk_" %%CSYSV_RK %CSYSV_RK)
    ("CPBCON" "cpbcon_" %%CPBCON %CPBCON)
    ("DTFSM" "dtfsm_" %%DTFSM %DTFSM)
    ("ZGTTS2" "zgtts2_" %%ZGTTS2 %ZGTTS2)
    ("ZLAQR1" "zlaqr1_" %%ZLAQR1 %ZLAQR1)
    ("SGEQP3" "sgeqp3_" %%SGEQP3 %SGEQP3)
    ("DSYTRI_3" "dsytri_3_" %%DSYTRI_3 %DSYTRI_3)
    ("SLAED0" "slaed0_" %%SLAED0 %SLAED0)
    ("ZHBEVX_2STAGE" "zhbevx_2stage_" %%ZHBEVX_2STAGE %ZHBEVX_2STAGE)
    ("DGETRS" "dgetrs_" %%DGETRS %DGETRS)
    ("DGELS" "dgels_" %%DGELS %DGELS)
    ("DTBRFS" "dtbrfs_" %%DTBRFS %DTBRFS)
    ("CSTEGR" "cstegr_" %%CSTEGR %CSTEGR)
    ("ZHETRS_AA" "zhetrs_aa_" %%ZHETRS_AA %ZHETRS_AA)
    ("SGGES" "sgges_" %%SGGES %SGGES)
    ("SORMBR" "sormbr_" %%SORMBR %SORMBR)
    ("SLA_GERCOND" "sla_gercond_" %%SLA_GERCOND %SLA_GERCOND)
    ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1)
    ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2)
    ("SLASDT" "slasdt_" %%SLASDT %SLASDT)
    ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6)
    ("DLARRD" "dlarrd_" %%DLARRD %DLARRD)
    ("DTREVC3" "dtrevc3_" %%DTREVC3 %DTREVC3)
    ("ZLAED7" "zlaed7_" %%ZLAED7 %ZLAED7)
    ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX)
    ("ZLA_GERPVGRW" "zla_gerpvgrw_" %%ZLA_GERPVGRW %ZLA_GERPVGRW)
    ("DORBDB4" "dorbdb4_" %%DORBDB4 %DORBDB4)
    ("ZPOCON" "zpocon_" %%ZPOCON %ZPOCON)
    ("CGETSLS" "cgetsls_" %%CGETSLS %CGETSLS)
    ("STRSYL" "strsyl_" %%STRSYL %STRSYL)
    ("SPORFS" "sporfs_" %%SPORFS %SPORFS)
    ("SSTEIN" "sstein_" %%SSTEIN %SSTEIN)
    ("CTPTTR" "ctpttr_" %%CTPTTR %CTPTTR)
    ("DLACPY" "dlacpy_" %%DLACPY %DLACPY)
    ("ZLATDF" "zlatdf_" %%ZLATDF %ZLATDF)
    ("SGGRQF" "sggrqf_" %%SGGRQF %SGGRQF)
    ("ZPTEQR" "zpteqr_" %%ZPTEQR %ZPTEQR)
    ("CGSVJ0" "cgsvj0_" %%CGSVJ0 %CGSVJ0)
    ("ZHETRF" "zhetrf_" %%ZHETRF %ZHETRF)
    ("CPORFSX" "cporfsx_" %%CPORFSX %CPORFSX)
    ("DSPOSV" "dsposv_" %%DSPOSV %DSPOSV)
    ("CGEQR2" "cgeqr2_" %%CGEQR2 %CGEQR2)
    ("DLASR" "dlasr_" %%DLASR %DLASR)
    ("CGETRI" "cgetri_" %%CGETRI %CGETRI)
    ("DORGTR" "dorgtr_" %%DORGTR %DORGTR)
    ("CGGES3" "cgges3_" %%CGGES3 %CGGES3)
    ("DSPTRI" "dsptri_" %%DSPTRI %DSPTRI)
    ("SSBGST" "ssbgst_" %%SSBGST %SSBGST)
    ("ZPTTS2" "zptts2_" %%ZPTTS2 %ZPTTS2)
    ("SORBDB" "sorbdb_" %%SORBDB %SORBDB)
    ("CGEBAL" "cgebal_" %%CGEBAL %CGEBAL)
    ("ZSYSV" "zsysv_" %%ZSYSV %ZSYSV)
    ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2)
    ("SORMHR" "sormhr_" %%SORMHR %SORMHR)
    ("ZUNBDB" "zunbdb_" %%ZUNBDB %ZUNBDB)
    ("ZTPMQRT" "ztpmqrt_" %%ZTPMQRT %ZTPMQRT)
    ("ZLANHB" "zlanhb_" %%ZLANHB %ZLANHB)
    ("SHGEQZ" "shgeqz_" %%SHGEQZ %SHGEQZ)
    ("SLA_PORCOND" "sla_porcond_" %%SLA_PORCOND %SLA_PORCOND)
    ("SGEBRD" "sgebrd_" %%SGEBRD %SGEBRD)
    ("SSYTRD" "ssytrd_" %%SSYTRD %SSYTRD)
    ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF)
    ("CPFTRF" "cpftrf_" %%CPFTRF %CPFTRF)
    ("STPRFB" "stprfb_" %%STPRFB %STPRFB)
    ("SLARF" "slarf_" %%SLARF %SLARF)
    ("SPOTRS" "spotrs_" %%SPOTRS %SPOTRS)
    ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0)
    ("CLA_GERFSX_EXTENDED" "cla_gerfsx_extended_" %%CLA_GERFSX_EXTENDED
     %CLA_GERFSX_EXTENDED)
    ("ZTPCON" "ztpcon_" %%ZTPCON %ZTPCON)
    ("ZLAQR2" "zlaqr2_" %%ZLAQR2 %ZLAQR2)
    ("CUNGHR" "cunghr_" %%CUNGHR %CUNGHR)
    ("CPPRFS" "cpprfs_" %%CPPRFS %CPPRFS)
    ("CHESV_ROOK" "chesv_rook_" %%CHESV_ROOK %CHESV_ROOK)
    ("CLANTB" "clantb_" %%CLANTB %CLANTB)
    ("SSYSWAPR" "ssyswapr_" %%SSYSWAPR %SSYSWAPR)
    ("CLA_SYRCOND_C" "cla_syrcond_c_" %%CLA_SYRCOND_C %CLA_SYRCOND_C)
    ("ZGTRFS" "zgtrfs_" %%ZGTRFS %ZGTRFS)
    ("CGESVJ" "cgesvj_" %%CGESVJ %CGESVJ)
    ("CUNMR2" "cunmr2_" %%CUNMR2 %CUNMR2)
    ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR)
    ("DLAE2" "dlae2_" %%DLAE2 %DLAE2)
    ("SLAGV2" "slagv2_" %%SLAGV2 %SLAGV2)
    ("ZGEEVX" "zgeevx_" %%ZGEEVX %ZGEEVX)
    ("ZGESVDQ" "zgesvdq_" %%ZGESVDQ %ZGESVDQ)
    ("CLACON" "clacon_" %%CLACON %CLACON)
    ("SLARNV" "slarnv_" %%SLARNV %SLARNV)
    ("DSTEVR" "dstevr_" %%DSTEVR %DSTEVR)
    ("DOPMTR" "dopmtr_" %%DOPMTR %DOPMTR)
    ("CPFTRS" "cpftrs_" %%CPFTRS %CPFTRS)
    ("DORMTR" "dormtr_" %%DORMTR %DORMTR)
    ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3)
    ("DLATRZ" "dlatrz_" %%DLATRZ %DLATRZ)
    ("CGEHD2" "cgehd2_" %%CGEHD2 %CGEHD2)
    ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ %DLAMSWLQ)
    ("CGGEV3" "cggev3_" %%CGGEV3 %CGGEV3)
    ("ZGGBAK" "zggbak_" %%ZGGBAK %ZGGBAK)
    ("CHETRF_AA_2STAGE" "chetrf_aa_2stage_" %%CHETRF_AA_2STAGE
     %CHETRF_AA_2STAGE)
    ("SSYTRI_ROOK" "ssytri_rook_" %%SSYTRI_ROOK %SSYTRI_ROOK)
    ("DGEQR" "dgeqr_" %%DGEQR %DGEQR) ("ZSYR" "zsyr_" %%ZSYR %ZSYR)
    ("SGEQRFP" "sgeqrfp_" %%SGEQRFP %SGEQRFP)
    ("SLARRE" "slarre_" %%SLARRE %SLARRE)
    ("CTFSM" "ctfsm_" %%CTFSM %CTFSM)
    ("ZPOTRI" "zpotri_" %%ZPOTRI %ZPOTRI)
    ("ZHPEV" "zhpev_" %%ZHPEV %ZHPEV)
    ("SLAQR3" "slaqr3_" %%SLAQR3 %SLAQR3)
    ("DSYTRS2" "dsytrs2_" %%DSYTRS2 %DSYTRS2)
    ("CHEEV" "cheev_" %%CHEEV %CHEEV)
    ("CLA_HERCOND_X" "cla_hercond_x_" %%CLA_HERCOND_X %CLA_HERCOND_X)
    ("ZPORFSX" "zporfsx_" %%ZPORFSX %ZPORFSX)
    ("STZRZF" "stzrzf_" %%STZRZF %STZRZF)
    ("DGELSS" "dgelss_" %%DGELSS %DGELSS)
    ("SSYRFS" "ssyrfs_" %%SSYRFS %SSYRFS)
    ("DGESV" "dgesv_" %%DGESV %DGESV)
    ("DSYSVXX" "dsysvxx_" %%DSYSVXX %DSYSVXX)
    ("CUNBDB4" "cunbdb4_" %%CUNBDB4 %CUNBDB4)
    ("ZTFSM" "ztfsm_" %%ZTFSM %ZTFSM)
    ("SGETSLS" "sgetsls_" %%SGETSLS %SGETSLS)
    ("ZUPGTR" "zupgtr_" %%ZUPGTR %ZUPGTR)
    ("CLAEIN" "claein_" %%CLAEIN %CLAEIN)
    ("ZGEQRT2" "zgeqrt2_" %%ZGEQRT2 %ZGEQRT2)
    ("DTPQRT" "dtpqrt_" %%DTPQRT %DTPQRT)
    ("CGTSV" "cgtsv_" %%CGTSV %CGTSV)
    ("SGELSS" "sgelss_" %%SGELSS %SGELSS)
    ("DSTEQR" "dsteqr_" %%DSTEQR %DSTEQR)
    ("SGETRI" "sgetri_" %%SGETRI %SGETRI)
    ("CUNGL2" "cungl2_" %%CUNGL2 %CUNGL2)
    ("ZSYTRF_ROOK" "zsytrf_rook_" %%ZSYTRF_ROOK %ZSYTRF_ROOK)
    ("DLARZ" "dlarz_" %%DLARZ %DLARZ)
    ("DSYEVR" "dsyevr_" %%DSYEVR %DSYEVR)
    ("DGBRFSX" "dgbrfsx_" %%DGBRFSX %DGBRFSX)
    ("ZLASYF_AA" "zlasyf_aa_" %%ZLASYF_AA %ZLASYF_AA)
    ("ZGEEV" "zgeev_" %%ZGEEV %ZGEEV)
    ("DPFTRI" "dpftri_" %%DPFTRI %DPFTRI)
    ("IZMAX1" "izmax1_" %%IZMAX1 %IZMAX1)
    ("CSYSV_ROOK" "csysv_rook_" %%CSYSV_ROOK %CSYSV_ROOK)
    ("SPFTRF" "spftrf_" %%SPFTRF %SPFTRF)
    ("SLANSB" "slansb_" %%SLANSB %SLANSB)
    ("SPPTRS" "spptrs_" %%SPPTRS %SPPTRS)
    ("ZLAHR2" "zlahr2_" %%ZLAHR2 %ZLAHR2)
    ("ZGEBAL" "zgebal_" %%ZGEBAL %ZGEBAL)
    ("ZLATPS" "zlatps_" %%ZLATPS %ZLATPS)
    ("SGEMQR" "sgemqr_" %%SGEMQR %SGEMQR)
    ("DORM22" "dorm22_" %%DORM22 %DORM22)
    ("CHLA_TRANSTYPE" "chla_transtype_" %%CHLA_TRANSTYPE
     %CHLA_TRANSTYPE)
    ("CSPSVX" "cspsvx_" %%CSPSVX %CSPSVX)
    ("CSYSVX" "csysvx_" %%CSYSVX %CSYSVX)
    ("DBDSVDX" "dbdsvdx_" %%DBDSVDX %DBDSVDX)
    ("ZLASYF" "zlasyf_" %%ZLASYF %ZLASYF)
    ("SLAQTR" "slaqtr_" %%SLAQTR %SLAQTR)
    ("ZPOSVXX" "zposvxx_" %%ZPOSVXX %ZPOSVXX)
    ("DSBGVX" "dsbgvx_" %%DSBGVX %DSBGVX)
    ("SSTEDC" "sstedc_" %%SSTEDC %SSTEDC)
    ("DTPTTR" "dtpttr_" %%DTPTTR %DTPTTR)
    ("DLA_PORPVGRW" "dla_porpvgrw_" %%DLA_PORPVGRW %DLA_PORPVGRW)
    ("DBBCSD" "dbbcsd_" %%DBBCSD %DBBCSD)
    ("ZUNG2R" "zung2r_" %%ZUNG2R %ZUNG2R)
    ("ZLARFY" "zlarfy_" %%ZLARFY %ZLARFY)
    ("SLARZB" "slarzb_" %%SLARZB %SLARZB)
    ("ZTRSEN" "ztrsen_" %%ZTRSEN %ZTRSEN)
    ("SSYEVR" "ssyevr_" %%SSYEVR %SSYEVR)
    ("DORBDB2" "dorbdb2_" %%DORBDB2 %DORBDB2)
    ("ZLARNV" "zlarnv_" %%ZLARNV %ZLARNV)
    ("SSYTD2" "ssytd2_" %%SSYTD2 %SSYTD2)
    ("DLARTV" "dlartv_" %%DLARTV %DLARTV)
    ("CLA_WWADDW" "cla_wwaddw_" %%CLA_WWADDW %CLA_WWADDW)
    ("DLAORHR_COL_GETRFNP2" "dlaorhr_col_getrfnp2_"
     %%DLAORHR_COL_GETRFNP2 %DLAORHR_COL_GETRFNP2)
    ("DLARRE" "dlarre_" %%DLARRE %DLARRE)
    ("DLARF" "dlarf_" %%DLARF %DLARF)
    ("ZHECON" "zhecon_" %%ZHECON %ZHECON)
    ("CLA_HERCOND_C" "cla_hercond_c_" %%CLA_HERCOND_C %CLA_HERCOND_C)
    ("CLA_GBAMV" "cla_gbamv_" %%CLA_GBAMV %CLA_GBAMV)
    ("DPBSTF" "dpbstf_" %%DPBSTF %DPBSTF)
    ("ZLACON" "zlacon_" %%ZLACON %ZLACON)
    ("CLAMSWLQ" "clamswlq_" %%CLAMSWLQ %CLAMSWLQ)
    ("SSPTRF" "ssptrf_" %%SSPTRF %SSPTRF)
    ("SORMTR" "sormtr_" %%SORMTR %SORMTR)
    ("ZHEGV_2STAGE" "zhegv_2stage_" %%ZHEGV_2STAGE %ZHEGV_2STAGE)
    ("SSBEVX" "ssbevx_" %%SSBEVX %SSBEVX)
    ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY %XERBLA_ARRAY)
    ("DSTEMR" "dstemr_" %%DSTEMR %DSTEMR)
    ("CHESV_RK" "chesv_rk_" %%CHESV_RK %CHESV_RK)
    ("DORM2L" "dorm2l_" %%DORM2L %DORM2L)
    ("ZSYTRF_AA_2STAGE" "zsytrf_aa_2stage_" %%ZSYTRF_AA_2STAGE
     %ZSYTRF_AA_2STAGE)))

(COMMON-LISP:EXPORT '(%CUNMQL %DLABAD %CGGBAK %DLAGS2 %SGEQR2 %SOPGTR
                      %CGERFSX %ZGSVJ1 %ZTPLQT2 %DPTTS2 %DTFTRI %CGEQRF
                      %CSPTRS %CGEES %CGEMLQ %DGEEVX %DZSUM1 %DSYTRS_3
                      %CLANSY %SLANSP %DLAEXC %CUNGR2 %SSYSVX %CTRTTF
                      %CSYTRI_ROOK %CTZRZF %SSYSV_ROOK %DSYSWAPR
                      %DORMBR %DGEQR2P %SLAGTM %ZLA_GERCOND_X %CPOSVXX
                      %ZCPOSV %CLA_GBRCOND_C %CTBTRS %DDISNA %ZHPGVD
                      %DORG2R %DHSEIN %DTRTTF %STGEVC %CGELSY %ZLAQR4
                      %SLAMSWLQ %ZLA_PORPVGRW %CPBEQU %DGSVJ1 %DGESVJ
                      %DTRSNA %ZLAUU2 %SGGSVD3 %SSBGV %DGEMQRT %DLANGE
                      %ZLA_HERCOND_C %SGGQRF %SLAS2 %DSYEVD_2STAGE
                      %CHPEVX %SLAUU2 %ZTGEVC %CSYSV_RK %CPBCON %DTFSM
                      %ZGTTS2 %ZLAQR1 %SGEQP3 %DSYTRI_3 %SLAED0
                      %ZHBEVX_2STAGE %DGETRS %DGELS %DTBRFS %CSTEGR
                      %ZHETRS_AA %SGGES %SORMBR %SLA_GERCOND %DLAQR1
                      %DLALN2 %SLASDT %DLASQ6 %DLARRD %DTREVC3 %ZLAED7
                      %DGTSVX %ZLA_GERPVGRW %DORBDB4 %ZPOCON %CGETSLS
                      %STRSYL %SPORFS %SSTEIN %CTPTTR %DLACPY %ZLATDF
                      %SGGRQF %ZPTEQR %CGSVJ0 %ZHETRF %CPORFSX %DSPOSV
                      %CGEQR2 %DLASR %CGETRI %DORGTR %CGGES3 %DSPTRI
                      %SSBGST %ZPTTS2 %SORBDB %CGEBAL %ZSYSV %DGEHD2
                      %SORMHR %ZUNBDB %ZTPMQRT %ZLANHB %SHGEQZ
                      %SLA_PORCOND %SGEBRD %SSYTRD %DLAGTF %CPFTRF
                      %STPRFB %SLARF %SPOTRS %DLAED0
                      %CLA_GERFSX_EXTENDED %ZTPCON %ZLAQR2 %CUNGHR
                      %CPPRFS %CHESV_ROOK %CLANTB %SSYSWAPR
                      %CLA_SYRCOND_C %ZGTRFS %CGESVJ %CUNMR2 %DGEMQR
                      %DLAE2 %SLAGV2 %ZGEEVX %ZGESVDQ %CLACON %SLARNV
                      %DSTEVR %DOPMTR %CPFTRS %DORMTR %DLAED3 %DLATRZ
                      %CGEHD2 %DLAMSWLQ %CGGEV3 %ZGGBAK
                      %CHETRF_AA_2STAGE %SSYTRI_ROOK %DGEQR %ZSYR
                      %SGEQRFP %SLARRE %CTFSM %ZPOTRI %ZHPEV %SLAQR3
                      %DSYTRS2 %CHEEV %CLA_HERCOND_X %ZPORFSX %STZRZF
                      %DGELSS %SSYRFS %DGESV %DSYSVXX %CUNBDB4 %ZTFSM
                      %SGETSLS %ZUPGTR %CLAEIN %ZGEQRT2 %DTPQRT %CGTSV
                      %SGELSS %DSTEQR %SGETRI %CUNGL2 %ZSYTRF_ROOK
                      %DLARZ %DSYEVR %DGBRFSX %ZLASYF_AA %ZGEEV %DPFTRI
                      %IZMAX1 %CSYSV_ROOK %SPFTRF %SLANSB %SPPTRS
                      %ZLAHR2 %ZGEBAL %ZLATPS %SGEMQR %DORM22
                      %CHLA_TRANSTYPE %CSPSVX %CSYSVX %DBDSVDX %ZLASYF
                      %SLAQTR %ZPOSVXX %DSBGVX %SSTEDC %DTPTTR
                      %DLA_PORPVGRW %DBBCSD %ZUNG2R %ZLARFY %SLARZB
                      %ZTRSEN %SSYEVR %DORBDB2 %ZLARNV %SSYTD2 %DLARTV
                      %CLA_WWADDW %DLAORHR_COL_GETRFNP2 %DLARRE %DLARF
                      %ZHECON %CLA_HERCOND_C %CLA_GBAMV %DPBSTF %ZLACON
                      %CLAMSWLQ %SSPTRF %SORMTR %ZHEGV_2STAGE %SSBEVX
                      %XERBLA_ARRAY %DSTEMR %CHESV_RK %DORM2L
                      %ZSYTRF_AA_2STAGE)
                    '#:MAGICL.LAPACK-CFFI)

;;; End of file.
